
 
 
 
 
 
 
 
 
 
 
 
     #" 
 
 
 
       )1 . 7 0 0 . 0 1 6   . 0 4 - 0 1   3 3 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
                                                             !,
 
 
 
 
 
 
 
                                              #!"    !"
 
                                             "  5       4     '!",  2 
 
 
 
 
 
                                               )1 . 7 0 0 . 0 1 6   . 0 4 - 0 1   3 3 
 
 
 
                                                           !"  4 5 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
                                                                 1 9 8 2 
 
                                                                                                                   " 
 
 
 
 
 
 
 
 
 
 
 
 
 
                                                               C T P .   2 
 
 
 
 
 
 )1 . 7 0 0 . 0 1 6   . 0 4 - 0 1   3 3 
 
 
 
 
 
 
 
 
 
 
 
 
 
                                                         1 .   "&/
 
 
 
 
 
 
 
                   #"  ! "!/  )/  $ &/,     %/
 
       !"#  /   "+  !  /+  !,       &    !!"
 
     !. 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
                                                               C T P .   3 
 
 
 
 
 
 )1 . 7 0 0 . 0 1 6   . 0 4 - 0 1   3 3 
 
 
 
 
 
 
 
 
 
 
 
 
 
                                                           ! 
 
 
 
 
 
 
 
     1 .       "&/      . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .     2 
 
 
 
 
 
     2 .     '    #!/   /. . . . . . . . . . . . . . . . . . . . . . . . . . .     5 
 
 
 
 
 
     3 .     !  !%  $    !. . . . . . . . . . . . . . . . . . . . . . .     7 
 
 
 
 
 
     4 .     " !/&/    +    /+  !,. . . . . . . . . . . . . . . . . . . . .     7 
 
 
 
     4 . 1 .       .'  " D " . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .     8 
 
     4 . 2 .       .'  " E " . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .     8 
 
     4 . 3 .       .'  " F " . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .     8 
 
     4 . 4 .       .'  " L " . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .     9 
 
     4 . 5 .       .'  " N " . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .     9 
 
     4 . 6 .       .'  " S " . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .     9 
 
     4 . 7 .       !,  .'    "!"    +. . . . . . . . . . . . . . . .     9 
 
     4 . 8 .       .'  " A " . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .   1 0 
 
     4 . 9 .       .'  " T " . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .   1 0 
 
     4 . 1 0 .     .'  " C " . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .   1 0 
 
     4 . 1 1 .     !"    +. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .   1 1 
 
     4 . 1 2 .     !"  (  " !/&. . . . . . . . . . . . . . . . . . . . . . . . . .   1 2 
 
 
 
     5 .     " !/&/    +   !! . . . . . . . . . . . . . . . . . . . . .   1 8 
 
 
 
 
 
     6 .         +    /+  !,. . . . . . . . . . . . . . . . . . . . .   1 9 
 
 
 
 
 
     7 .     #!    +    +. . . . . . . . . . . . . . . . . . . . . . . . . . . . .   2 0 
 
 
 
 
 
     8 .     !)/. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .   2 0 
 
 
 
 
 
     9 .     " !/&/  (%   &# . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .   2 2 
 
 
 
 
 
     1 0 .   !!"  +/    +    /+  !,. . . . . . . . .   2 4 
 
 
 
 
 
     1 1 .       I M P . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .   2 6 
 
 
 
     1 1 . 1 .     +     #. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .   2 6 
 
     1 1 . 2 .     !)/    +  I M P . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .   2 7 
 
 
 
     1 2 .       F O R M . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .   2 8 
 
 
 
     1 2 . 1 .     +     #. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .   2 8 
 
                                                               C T P .   4 
 
 
 
 
 
 )1 . 7 0 0 . 0 1 6   . 0 4 - 0 1   3 3 
 
 
 
 
 
     1 2 . 2 .     !)/    +  F O R M . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .   2 9 
 
 
 
     1 3 .   ! !"  "    . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .   3 0 
 
 
 
     1 3 . 1 .     "'  !"  ( ; B ) . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .   3 2 
 
     1 3 . 2 .     #!  ( ; G )        ( ; P )     +. . . . . . . . . . . . . . .   3 3 
 
     1 3 . 3 .     (+     +/  ( ; S ) . . . . . . . . . . . . . . . . . . . . . . . .   3 3 
 
     1 3 . 4 .     " !!   +/+%   "   ( ; T ) . . . . . . . . . . . . . . . .   3 4 
 
     1 3 . 5 .     " !!   +/+%   &#   ( ; C ) . . . . . . . . . . . . . . . . . .   3 5 
 
     1 3 . 6 .     !       ( ; W ) . . . . . . . . . . . . . . . . . . . . . . . . . . . .   3 6 
 
     1 3 . 7 .      !'"  !    +%. . . . . . . . . . . . . . . . . . . . . .   3 7 
 
     1 3 . 8 .       !    +%. . . . . . . . . . . . . . . . . . . . . . .   3 9 
 
     1 3 . 9 .      !'"  !!     +%. . . . . . . . . . . . . . . . . . . . . .   3 9 
 
     1 3 . 1 0 .    !'"  !!  ++%   &# . . . . . . . . . . . . . . . . . . .   4 1 
 
     1 3 . 1 1 .    !'"  !%  ++%   " . . . . . . . . . . . .   4 1 
 
 
 
     1 4 .     " ,- !" &/  '. . . . . . . . . . . . . . . . . . . . . . .   4 2 
 
 
 
 
 
          1 .   !!    "'. . . . . . . . . . . . . . . . . . . . . . .     4 4 
 
 
 
           !"   !" &  . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
                                                               C T P .   5 
 
 
 
 
 
 )1 . 7 0 0 . 0 1 6   . 0 4 - 0 1   3 3 
 
 
 
 
 
                                   2 .   '    #!/   /
 
 
 
 
 
 
 
 
 
               !!"       /    !,    .'        !      /
 
      !( /  !!    ',      (+%     &    !!".     -"
 
     !/  !    ",     '"    /+    !,    #        /    +/
 
      '+%  +'!,   "    /   "  '!    $ &, 
 
     .'/  -'!  ',    "#  !  !!    ". . 
 
 
 
                 !!"  !!"+     /    %/"    #+    ! !"
 
     "               .     #!"!/    !",
 
     /  "    ,     "  !,      %  
 
     !    ,   !+%     !!     $ " . 
 
 
 
               /   "+  !  /+  !,         &    !!"    !
 
      #"!/,   '"+    !!"  !    %!,     "
 
     .)  #!" !"  ( /",)     !",.            1 6     !. 
 
     !!"  !,  .'"  !#.)  $+: 
 
 
 
 
 
     P A S C A L . S A V 
 
                   -   /"   !  /+  !,     !! ; 
 
 
 
     P A S A L . O B J 
 
                   -   !/.)/  !!",   !,#.)/  ",    +     
 
                       !" #&  &" ,   &!! ; 
 
 
 
     I M P . S A V 
 
                   -       !'"  " #.  "&.    "!"    
 
                        !! ,     #'         #,""       "
 
                            +  " !/"   !/. 
 
 
 
     F O R M . S A V 
 
                   -         !'"    +    #%    $#&.     
 
                       !#)!"/"  $ "   !%  "!"     
 
                         +        !    /      #!"      ! /"/      
 
                       !" #"# +         "              "!"      '
 
                       !" #"# +    +.               -"#        "
 
                       !",  !"  "&+    !"+%  !!+   +%
 
                          &#   ( $#&) . 
 
 
 
     R A N I O . O B J 
 
                   -         /      +/       &      / +
 
                        /  !"#. 
 
 
 
     B I O . P A S 
 
                   -   "!"  " ,- !" &  '. 
 
 
 
               ",     '!+, %+  $+    M A C R O . S A V     
 
     L I N K . S A V . 
 
 
 
               !    +    +    /+  !,  "    +",
 
     +  !  ),.  !#.)%  (: 
 
 
 
                   -   !  !%  $  !  "!"      +        /+
 
                       !,; 
 
                                                               C T P .   6 
 
 
 
 
 
 )1 . 7 0 0 . 0 1 6   . 0 4 - 0 1   3 3 
 
 
 
 
 
                   -   " !/&/    +    /+   !! ; 
 
 
 
                   -   " !/&/    #'    "!"         !!       
 
                       ' "+  ; 
 
 
 
                   -           #/    (     !,%)     !"    !
 
                       #/  !/.)  !!"+  !,      #  $ "
 
                        #; 
 
 
 
                   -   #!    +  #'    +. 
 
 
 
                "      !",    '!+%  +(,     "    ",
 
     !#.)  : 
 
 
 
                   . R   E D I T 
 
                   * E W D E M O . P A S   
 
                       . . .                           !   !  $  !  "!"
 
                       . . .                           !     +
 
                    E X   
 
                   . R   P A S C A L 
 
                   * D E M O = D E M O 
 
                   . R   M A C R O 
 
                   * D E M O = D E M O 
 
                   * ^ C 
 
                   . R   L I N K 
 
                   * D E M O = D E M O , P A S C A L   !     D E M O = D E M O , S Y : P A S C A L   ,   !
 
                                                       !   P A S C A L . O B J   %"!/    S Y : ,       D K : 
 
                   * ^ C 
 
                   . R U N   D E M O 
 
                       . . .                           !   +  #'    +
 
 
 
                 !#.)%   %  #"   +     &# +    ##"
 
     !+     . 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
                                                               C T P .   7 
 
 
 
 
 
 )1 . 7 0 0 . 0 1 6   . 0 4 - 0 1   3 3 
 
 
 
 
 
                             3 .   !  !%  $    !. 
 
 
 
 
 
 
 
 
 
               !%+  $  !  "!"    +    /+  !,    //"!/
 
     +'+    "!"+    $        !+!    !!"+    !.       !
 
     !%    $    "    +",    +      .+            !!"+%
 
      "   !. 
 
 
 
                "     /+    !,    "     )",!/        !,%
 
     !" %.   !,   "   #"   )",!/        !" . 
 
      +      "#/&    < T A B >     #"    !,",!/        .
 
     !"      .    '!"    /    ##'(/    ! /"/     "
 
       +  (   /!") ,     "    /  &  +/    '
 
     !" #"# +    +.   /"   !  /+  !,    #"    
 
          "#/&,     " +    !,#."!/    /    $ " /
 
       +. 
 
 
 
               /  +/    (  /)     ",+%    !" &        !"
 
       +  #"  !,",!/    < F F >   ( '      
 
        !! ) . 
 
 
 
 
 
 
 
 
 
                           4 .   " !/&/    +    /+  !,. 
 
 
 
 
 
 
 
 
 
               /"   !,  !,#"    "!"      +        '!"
 
     %  $.      /   "+  /"   !"  $  !  "!"
 
       +        /+     !! .       ",            -"#
 
     +%#  $#  "  !",!/    (         /",)     $    !
 
     !",     : 
 
 
 
                   . R   P A S C A L 
 
                   * P R O G , P R O G = P R O G 
 
 
 
      "        " !/&      +        /+    !,        $
 
     P R O G . P A S     !.  $  P R O G . M A C   !  "!"     !!   
 
     $  P R O G . L S T   !  !". 
 
 
 
                   !"   /"       /    #+",    
 
     #!" !"    .',   # /.)  " !/&,     : 
 
 
 
                   . R   P A S C A L 
 
                   * P R O G , L P : / N = P R O G 
 
 
 
     +"  " !/&.    +  P R O G . P A S   !  #'  $  P R O G . M A C 
 
       !"    #!" !"  '"  ( L P : ) .     !"    #"    ! ",
 
     ",  !"       +,     ! )    (        !"'!
 
     !)/  ( #+"!/  .'  " N " ) . 
 
 
 
               !    !"    )    #'",            #,       "      !#"
 
     !,",,     ,   !#.)#.  #: 
 
 
 
                                                               C T P .   8 
 
 
 
 
 
 )1 . 7 0 0 . 0 1 6   . 0 4 - 0 1   3 3 
 
 
 
 
 
                   . R   P A S C A L 
 
                   * P R O G = P R O G 
 
 
 
               !  ),.  .',     !,#+%            !"     / 
 
     "!"    +,     # /",   &!!  " !/&. 
 
 
 
 
 
               _  _ _ _ _ '_ _ _ _ .   " +    .'    #"    !,",!/
 
     ",    "!"    +. 
 
 
 
 
 
 
 
                 4 . 1 .   .'  " D " 
 
 
 
 
 
 
 
               !,        .'       "            .'.      
 
     " ! ##.    #  $ &  /  "'.   -"    $ &/
 
     ! "     +%     &# ,     "        " . 
 
           -"#     &!!            !!"      +
 
     #"  ""'!  .'  "'        "    !/.)
 
     !!"+  !,. 
 
 
 
               !,    .'  !  .'  " S "   "    "'#
 
     #!"",  !""!"        "         !%    "!"
 
       +        !".     -"#        -"    !#'    #    !
 
     !",  $  !  !"      +    ( !.          !    !
 
      &#   ") . 
 
 
 
 
 
 
 
                 4 . 2 .   .'  " E " 
 
 
 
 
 
 
 
               .'  !,#"!/    /    ",     '"+          &# +
 
     !  " !/&  !"  (.    &# +      $#&,     " +    
 
     "    +  !+        ,+,     +    " ! ",!/
 
     ",  "  !    +    !  !,  .'  " E " ,   ". . 
 
       (.    +    6     !    ( )          &# +    
 
     $#&    !,#."!/    /     /        '!"    ,
 
     !  "'  %  ( "#)   /  !""!"#.)    +. 
 
 
 
 
 
 
 
                 4 . 3 .   .'  " F " 
 
 
 
 
 
 
 
               !,    -"    .'    /"    #! ",    +
 
     !"       "  R E A L ,   ". .      $"'!     &
 
       '!    $ "  !  .)  /".   -"  "&/    "
 
     !,",!/  /   &!!       .)    /"    ( /    -
 
     "    -"     6 0 , -"     &    8 0 - 0 1     )     "&/    
 
     ! !"  +/  !#)!"/"!/    !'"   &  /" 
 
     !""!"#.)%  +    .     "  !#',   !  .'    " F " 
 
       !,#"!/,   "  /"     #"  (+  !" #&  /
 
      "+    !    .)    /",                    +        +
 
                                                               C T P .   9 
 
 
 
 
 
 )1 . 7 0 0 . 0 1 6   . 0 4 - 0 1   3 3 
 
 
 
 
 
     !/.)/      !!"      !#)!"/"        %        -#/&..          /, 
 
     " '      -#/&.,     ,(,     '    +    !" #&
 
      )/      . 
 
 
 
                 !,  .'  " F "    "    #'.    
 
       +     "  /". 
 
 
 
 
 
 
 
                 4 . 4 .   .'  " L " 
 
 
 
 
 
 
 
               +  .'      ("    #.     !'"#    !"    "!"
 
       +    /+  !,.     "  !,",!/        
 
     !"     !%  $  ( !.   .'  " N " )   /    .'/        !"
 
     "!"    +. 
 
 
 
 
 
 
 
                 4 . 5 .   .'  " N " 
 
 
 
 
 
 
 
               +  .'   )"   !'"#  !%  "!"      +
 
     (  " )         $      !"            !.'      !"       ( , 
 
     !""!",    " ) ,   ! )%  (. 
 
 
 
 
 
 
 
                 4 . 6 .   .'  " S " 
 
 
 
 
 
 
 
               -""  .'   "    .'.        #+    /" 
 
     "!"     !!    "   !%    /+        '!"
 
     " .   !,    .'  '"    "!"
 
       +     !! . 
 
 
 
               .'  " S "   !,  $& #"  !"  .'  " D " ,     +
 
     !  +(. 
 
 
 
 
 
 
 
                 4 . 7 .   !,  .'    "!"    +
 
 
 
 
 
 
 
               !  .',    !!" +  +(,   #!."  !,  %    
 
     "!"    +.   -"  !#)!"/"!/  !,    " 
 
     !&,  .    +      " /        +",    "  " . 
 
     !#.)          !",    !    !'!    '
 
     .',       ,     " ( *  S * ) "      "        .'.        "!"    
 
      !!   !%+%   "     '!"  " . 
 
 
 
                   .'  "  !,",!/    " + "         " - " . 
 
     -"     '+  /  " .'/"   !"/    .'    ( + )     
 
     " +.'/"   ( - ) ,   ". .   "+    !"/. 
 
                                                               C T P .   1 0 
 
 
 
 
 
 
 
 )1 . 7 0 0 . 0 1 6   . 0 4 - 0 1   3 3 
 
 
 
 
 
               .'  " A " ,   " T "       " C "     #"    !,",!/    ",    #" 
 
     "!"    +,       #"   /",!/      !" . 
 
 
 
 
 
 
 
                 4 . 8 .   .'  " A " 
 
 
 
 
 
 
 
               +  .'    "/"     &.              #!"!",
 
     '  !          "    !    !!    -     ( *  A - * ) .     +'
 
     /"       #"    !" #&,       /.)    +%    '
 
     !        #!"+       &+.       !       &/        
 
      ),     "            #"      ",      !,      ,(
 
      "  /"    #"  +/",!/  !,  +!" . 
 
 
 
 
 
 
 
                 4 . 9 .   .'  " T " 
 
 
 
 
 
 
 
               .'  ( *  T - * )      )"     &.    !" #&,       /.)%
 
          !".     !/              +       &# +      !"
 
       /"!/    '  !"  /   )/  ,+%   +%. 
 
     "  "  !,/          !"    '",    #,("
 
          "  /",       ,     #+!" /"    
 
     +. 
 
 
 
 
 
 
 
               4 . 1 0 .   .'  " C " 
 
 
 
 
 
 
 
               !&,+      "     /"    .'",        "!"
 
       +    /+  !,  $ "+    /+   !! .   -"
 
     !#)!"/"!/  .'  " C " ,   !,#+        '    " . 
 
     /"   !,   #"  %+  !"   /   !! 
 
     /   /  !!+    !""!"#.)   " +     +. 
 
       ,     /    ",     '"+    !,",    '      ,
 
        " A B C " ,   #   )",!/      !  ),.    " A B C ( R 5 ) " ,     
 
     /  !"#    ,        " #   &# +    " X Y Z " 
 
     -   !,",  !,  " X Y Z ( S P ) " : 
 
 
 
         ( *  C 
 
                   T S T           A B C ( R 5 )                 ;  /  A B C   #   0   ? 
 
                   B N E           1 0                          ; 
 
                   M O V           X Y Z ( S P ) , R 0           ; #'",  '  X Y Z     R 0 
 
                   A D D           # 1 2 3 . , R 0               ;  ",  1 2 3     R 0 
 
                   M O V           R 0 , @ # 1 0 0               ; !",  R 0     !."#
 
                                                                 ;    !#
 
     1 0  :       I N C           X Y Z ( S P )                 ; #'",    1    #.
 
                                                                 ;   X Y Z 
 
         * ) 
 
 
 
 
 
 
 
                                                               C T P .   1 1 
 
 
 
 
 
 
 
 )1 . 7 0 0 . 0 1 6   . 0 4 - 0 1   3 3 
 
 
 
 
 
               _  _ _ _ _ '_ _ _ _ .     #'.        $ "%        /+
 
      !!   !!"  !'!/  !/"'/,       !, '/. 
 
 
 
 
 
 
 
               4 . 1 1 .   !"    +
 
 
 
 
 
 
 
               !",   !+  /"     !,    ! "    
 
     !%  "!"    +    4         (       !"    !.     
 
      ,   !/)   &#   ") . 
 
 
 
                /    ! "     !%+%  !"     +.   -"
 
           !"    '"!/        " L I N E " .     # &/    !" 
 
     +/"!/   /,   '/  !     1 . 
 
 
 
               " /    ,     '/    " S T M T " ,     ! "    ,+
 
         "   !%    +    !,#"!/         "
 
       .   !#"  """,,   '"     "     "     )",!/
 
       !,%  !" %.   !     #    !" +,     !,     " 
 
     #"   )",!/        !" .     -"#             
 
      "   '/  #"   !"",    '    1         %
 
     "    !"      #. 
 
 
 
               " ",/    ! "     #   !"   &# . 
 
     -"  $ &/    /    " !"#!""    +%    "%
 
           +%       &# %,       !,#       +,         ' /+
 
     (  +)       # ,   #"  +",    !"#+        "    
 
     #           # /%,          " +%    +(    .     !/
 
         %"!/        1 -     #     !".      &# +    
 
     $#&,    +      ,   !'"."!/  .)  # ,    2 . 
 
        &#   # /  2   ",     ,     +",         $#&/, 
 
     " /  #"  ",  #  # ,    !"    3 .     /    $#&/
 
     !'""!/    ,            "    +",    !"#        !
 
       +,   ". .     # /  1 . 
 
 
 
                 " ",        "'"!/    # ,    !"    
 
      " ,      '+%    " B E G I N "         " E N D " .        #      !
 
      " +  "  " B E G I N "     " R E P E A T "      /"        #'.        1 
 
        # /  !",             !" ""!/    !""!"#.)
 
     " E N D "     " U N T I L " .   "        #   !"  #"
 
     !,",!/    /              !"      )      !" #"# +
 
       +  !  "'   /  !"  . 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
                                                               C T P .   1 2 
 
 
 
 
 
 
 
 )1 . 7 0 0 . 0 1 6   . 0 4 - 0 1   3 3 
 
 
 
 
 
               4 . 1 2 .   !"  (  " !/&
 
 
 
 
 
 
 
                   #    (         &!!    " !/&    /" 
 
     "'"  ('#.  !" #  !,    " * "           '!"
 
     !",     " +    !#"    /!",+    "!".         " ^ " 
 
     "'"!/  "  !"        !" ,     "               #.
 
     (. 
 
 
 
                #+  (,       ,         '    !" #"#       +, 
 
     #"  +",  &+   /  ( &'#)    #%  (.         -"    !#'
 
     !          (     "            " !'."       !%
 
     !",+%  (.   !,  .'  " N "        !    !"
 
      "    #'.    !"  ",  !"     +,     " +%
 
      #+  (,     : 
 
 
 
                   . R   P A S C A L 
 
                   * P R O G , L P : / N = P R O G 
 
 
 
               )    '!    (,      #+%           /      " !/&
 
      !'"+"!/    &  !".          +"!/    ' 
 
      "  /",   " /  !"!,    !,        &
 
     " !/&.   '/  $ &/  +"!/    -   !!"
 
     " . 
 
 
 
               +  !#.)  !)/    (%: 
 
 
 
     O V E R F L O W . 
 
                   -    ; 
 
 
 
     M I S S I N G   E N D 
 
                   -    #)  " E N D " ; 
 
 
 
     T O O   M A N Y   S Y M B O L S 
 
                   -   !(     +%     &# ; 
 
 
 
     T O O   M A N Y   L E V E L S 
 
                   -   !(    #   !"   &#     $#&; 
 
 
 
     T O O   M A N Y   W A R N I N G S 
 
                   -   !(     # ; 
 
 
 
     I N P U T   L I N E   T O O   L O N G 
 
                   -   /  %/  !" ; 
 
 
 
     I N V A L I D   C H A R A C T E R 
 
                   -   #!"+    !" "!/    !" ; 
 
 
 
     8   O R   9   I N   O C T A L   C O N S T A N T 
 
                   -     !, '  !""   #!,  &$ +  8     9 ; 
 
 
 
     L A B E L S   M U S T   B E   I N T E G E R S 
 
                   -     '!"  "    #!"    !,",    ",    &+
 
                       '!; 
 
 
 
     C O N S T A N T   O V E R F L O W 
 
                   -         !(      !"";         /"     
 
                                                               C T P .   1 3 
 
 
 
 
 
 
 
 )1 . 7 0 0 . 0 1 6   . 0 4 - 0 1   3 3 
 
 
 
 
 
                       %""  /"  /   )/  !%  !""; 
 
 
 
     M I S S I N G   L A B E L   D E F I N I T I O N 
 
                   -   "!#"!"#"     "; 
 
 
 
     U N D E F I N E D   F O R W A R D   P R O C E D U R E   O R   F U N C T I O N 
 
                   -   #!"  !,",   &# #      $#&.     , 
 
                       '    ##"   +; 
 
 
 
     B A D   P R O G R A M   N A M E 
 
                   -   #!"  /    +; 
 
 
 
     I M P R O P E R   S Y M B O L 
 
                   -   #!"+  !; 
 
 
 
     M I S S I N G   B E G I N 
 
                   -    #)  " B E G I N " ; 
 
 
 
     M I S S I N G   ' . '   A T   P R O G R A M   E N D 
 
                   -     &    +  "!"#"!#"  " . " ; 
 
 
 
     A L L   V A R   D E F I N I T I O N S   P R E C E E D   P R O C E D U R E   D E F I N T I O N S 
 
                   -    /    !%       +%            %",!/      
 
                                  &# ; 
 
 
 
     B A D   O R I G I N   F O R   V A R I A B L E 
 
                   -   #!"  ',  '  /   ; 
 
 
 
     B A D   V A R I A B L E   L I S T 
 
                   -   #!"+  !!   +%; 
 
 
 
     B A D   T Y P E 
 
                   -   #!"     "; 
 
 
 
     B A D   L A B E L 
 
                   -    ,/  "; 
 
 
 
     B A D   F U N C T I O N   N A M E 
 
                   -   #!"  /  /  $#&; 
 
 
 
     B A D   P R O C E D U R E   N A M E 
 
                   -   #!"  /  /   &# +; 
 
 
 
     B A D   F U N C T I O N   R E S U L T   T Y P E 
 
                   -   #!"+  "   #,""  $#&; 
 
 
 
     F O R T R A N   P A R A M .   M U S T   B E   C A L L   B Y   R E F E R E N C E 
 
                   -   $ " !   "         !     ",!/    
 
                       !!+; 
 
 
 
     D O N ' T   R E P E A T   P A R A M E T E R   L I S T 
 
                   -     !#"  #+",  !!  $ ,+%   "     
 
                          ; 
 
 
 
     ' , '   U S E D   I N S T E A D   O F   ' ; ' 
 
                   -   " , "   +  !,  !"  " ; " ; 
 
 
 
 
 
                                                               C T P .   1 4 
 
 
 
 
 
 
 
 )1 . 7 0 0 . 0 1 6   . 0 4 - 0 1   3 3 
 
 
 
 
 
     M I S S I N G   ' ) '   A T   E N D   O F   P A R A M   L I S T 
 
                   -    #)  " ) "     &  !!  $ ,+%   " ; 
 
 
 
     B A D   P A R A M E T E R 
 
                   -   #!"+  $ ,+   " ; 
 
 
 
     B A D   S C A L A R   T Y P E 
 
                   -   #!"+  !/ +  "; 
 
 
 
     B A D   S U B R A N G E 
 
                   -   #!"  #  " ; 
 
 
 
     B A D   T Y P E   S P E C I F I C A T I O N 
 
                   -   #!"     ( #)   "; 
 
 
 
     A R R A Y   I N D E X   T Y P E   E R R O R 
 
                   -   (      "  !  /  !!; 
 
 
 
     B A D   R E C O R D 
 
                   -   #!"/  !,; 
 
 
 
     B A D   F I E L D   L I S T 
 
                   -   #!"     !!  ; 
 
 
 
     F I E L D   L I S T   M U S T   B E   I N   P A R E N T H E S E S 
 
                   -   !!      #+",!/    !%; 
 
 
 
     B A D   V A R I A N T 
 
                   -   #!"+   "; 
 
 
 
     D U P L I C A T E   F I E L D   N A M E 
 
                   -   "   !,#"!/  /  /  /  !; 
 
 
 
     B A D   C O N S T A N T 
 
                   -   #!"/  !""; 
 
 
 
     L A B E L   N O T   D E C L A R E D 
 
                   -   !,#"!/   /  "; 
 
 
 
     L A B E L   R E D E F I N I T I O N 
 
                   -       "  #!"; 
 
 
 
     L A B E L   D E F I N E D   A T   W R O N G   L E V E L 
 
                   -      "     ,  # ; 
 
 
 
     U N D E F I N E D   S Y M B O L 
 
                   -    +  !; 
 
 
 
     M I S S I N G   S E M I - C O L O N 
 
                   -    #)  " ; " ; 
 
 
 
     I N V A L I D   D E C L A R A T I O N .   P R O B A B L Y   M I S S I N G   E N D 
 
                   -   #"+   " ;   ,   '"   #)  " E N D " ; 
 
 
 
     I N V A L I D   S Y M B O L 
 
                   -   #!"+  !; 
 
 
 
 
 
                                                               C T P .   1 5 
 
 
 
 
 
 
 
 )1 . 7 0 0 . 0 1 6   . 0 4 - 0 1   3 3 
 
 
 
 
 
     N O T   I M P L E M E N T E D 
 
                   -   /  !",         /" ; 
 
 
 
     M I S S I N G   L A B E L 
 
                   -    #)  "; 
 
 
 
     B A D   ' E X I T ' 
 
                   -    #)  " E X I T " ; 
 
 
 
     D U P L I C A T E   C A S E   L A B E L 
 
                   -   "   !,#"!/  "     "   " C A S E " ; 
 
 
 
     E L S E   N O T   L A S T   I N   C A S E   S T M T 
 
                   -   " E L S E "     %"!/    &   "   " C A S E " ; 
 
 
 
     M I S S I N G   E N D   I N   C A S E   S T M T 
 
                   -    #)  " E N D "      "   " C A S E " ; 
 
 
 
     B A D   C A S E   L A B E L 
 
                   -   #!"/  "  +      "   " C A S E " ; 
 
 
 
     M I S S I N G   U N T I L 
 
                   -    #)  " U N T I L " ; 
 
 
 
     B A D   F O R   S T A T E M E N T 
 
                   -    ,+  $ "   "   &  " F O R " ; 
 
 
 
     B A D   W I T H   S T A T E M E N T 
 
                   -   #!"+   "   " W I T H " ; 
 
 
 
     W I T H   I N   R E G   0 
 
                   -   /   "   " W I T H "   !,#"!/   !"   0 ; 
 
 
 
     T O O   M A N Y   A R G U M E N T S 
 
                   -   !(     #"; 
 
 
 
     B A D   A R G U M E N T 
 
                   -   #!"+   #"; 
 
 
 
     T O O   F E W   A R G U M E N T S 
 
                   -   #     #"; 
 
 
 
     N E W   O R   D I S P O S E   A R G   N O T   P O I N T E R   T Y P E 
 
                   -      &# %    " N E W "         " D I S P O S E "     "    !,",!/
 
                       ",   /- #",; 
 
 
 
     B A D   R E A D   S T A T E M E N T 
 
                   -   #!"+   "   " R E A D " ; 
 
 
 
     B A D   W R I T E   S T A T E M E N T 
 
                   -   #!"+   "   " W R I T E " ; 
 
 
 
     F O R M A T   M U S T   B E   I N T E G E R   T Y P E 
 
                   -   /  #/     "     $ "    "    !,",!/
 
                       ",  &'!+   +    !""+; 
 
 
 
     F I L E   V A R I A B L E   M I S S I N G 
 
                   -    #)   /  $; 
 
                                                               C T P .   1 6 
 
 
 
 
 
 
 
 )1 . 7 0 0 . 0 1 6   . 0 4 - 0 1   3 3 
 
 
 
 
 
     B A D   F I L E   N A M E 
 
                   -   #!"  /  $; 
 
 
 
     I L L E G A L   A S S I G N M E N T 
 
                   -   #!"  '; 
 
 
 
     B A D   E X P R E S S I O N 
 
                   -   (    + ; 
 
 
 
     M I S S I N G   ' ) ' 
 
                   -    #)  " ) " ; 
 
 
 
     M I S S I N G   O P E R A T O R 
 
                   -    #)   " ; 
 
 
 
     M I S S I N G   O P E R A N D 
 
                   -    #)   ; 
 
 
 
     S T R A N G E   ' [ '   - -   B A D   S E T   O R   M I S S I N G   A R R A Y   D E F 
 
                   -   ' /!  /  " [ " ,   '"    "    +",    !/    !
 
                       #!"+  !"     +  !!; 
 
 
 
     U N D E F I N E D   O P E R A N D   - -   A S S U M I N G   I N T E G E R 
 
                   -    +   ;   /"    !"    #    "
 
                       " I N T E G E R " ; 
 
 
 
     F U N C T I O N   A R G U M E N T   M I S S I N G 
 
                   -    #)   #"  $#&; 
 
 
 
     F U N C T I O N   A R G   M U S T   B E   R E A L   O R   I N T E G E R 
 
                   -    #"  $#&    ",  "  " R E A L "     " I N T E G E R " ; 
 
 
 
     A R G U M E N T   M U S T   B E   I N T E G E R   T Y P E 
 
                   -    #"    ",  "  " I N T E G E R " ; 
 
 
 
     A R G   M U S T   B E   R E A L 
 
                   -   !#"  !,",   #"  "  " R E A L " ; 
 
 
 
     A R G   M U S T   B E   I N T E G E R 
 
                   -   !#"  !,",   #"  "  " I N T E G E R " ; 
 
 
 
     A R G   M U S T   B E   N O N - R E A L   S C A L A R 
 
                   -    #"        ",    !/ +    ",         //.)!/
 
                       " R E A L " ; 
 
 
 
     B A D   ' A B S '   A R G 
 
                   -   #!"+   #"  $#&  " A B S " ; 
 
 
 
     ' O D D '   A P P L I E D   T O   N O N - I N T E G E R   E X P R E S S I O N 
 
                   -    &#       " O D D "             !,",!/      ",      !
 
                       &'!+     #"    (  ,       +       
 
                       ". . ) ; 
 
 
 
     B A D   S E T   E L E M E N T 
 
                   -   #!"+  -"  !"; 
 
 
 
     M I S S I N G   F I E L D   V A R I A B L E 
 
                   -    #)  #  /  !; 
 
                                                               C T P .   1 7 
 
 
 
 
 
 
 
 )1 . 7 0 0 . 0 1 6   . 0 4 - 0 1   3 3 
 
 
 
 
 
     U N D E F I N E D   P O I N T E R   B A S E   T Y P E 
 
                   -    +    ",         " +    !!+"!/     /
 
                       #",; 
 
 
 
     B A D   I N D E X   T Y P E 
 
                   -   #!"+  "  !; 
 
 
 
     I L L E G A L   O P E R A T O R 
 
                   -   #!"+   " ; 
 
 
 
     I L L E G A L   T Y P E   O F   O P E R A N D 
 
                   -   #!"+  "   ; 
 
 
 
     I N C O M P A T I B L E   A R R A Y S 
 
                   -   !!"+  !!+; 
 
 
 
     B A D   ' I N '   O P E R A N D S 
 
                   -   #!"+   +  /   "   " I N " ; 
 
 
 
     O U T   O F   F L O A T I N G   A C ' S 
 
                   -   /    +/      +          %""      ##/" 
 
                        &!!     .)      /"      ( !" "!,      !
 
                       + ) ; 
 
 
 
     O U T   O F   R E G I S T E R S 
 
                   -         %""       !"       /      +/          +
 
                       ( !" "!,  !/  !" #&/) ; 
 
 
 
     B O O L E A N   E X P R E S S I O N   N E E D E D 
 
                   -           !"        +      %      !,",
 
                       '!  + ; 
 
 
 
     I N C O M P A T I B L E   T Y P E 
 
                   -   !!"+  "; 
 
 
 
     M U S T   B E   S I M P L E   V A R I A B L E 
 
                   -   !#"  !,",   !"#.   #.; 
 
 
 
     U N R E S O L V E D   F O R W A R D   T Y P E   R E F E R E N C E 
 
                   -      "  -   !!+              +
 
                       "+  +%; 
 
 
 
     A R R A Y   I N D E X   O U T   O F   R A N G E 
 
                   -   !  !!  +%"    +   &+; 
 
 
 
     F A T A L   E R R O R 
 
                   -   $",/  (  /" ;      "# +  !
 
                         (    !  /" ; 
 
 
 
     T O O   M A N Y   E R R O R S   I N   T H I S   L I N E 
 
                   -   !(    (      !" ; 
 
 
 
     E X P E C T E D   ' . '   M I S S I N G .   A S S U M E D   W H E R E   I N D I C A T E D 
 
                   -        !#"!"",    " . " ;            #
 
                         " . " ; 
 
 
 
     A L L   C H A R A C T E R S   I G N O R E D   U N T I L     . . . 
 
                   -   !      " . . . "     #."!/; 
 
                                                               C T P .   1 8 
 
 
 
 
 
 
 
 )1 . 7 0 0 . 0 1 6   . 0 4 - 0 1   3 3 
 
 
 
 
 
     I N D E X   O U T   O F   R A N G E 
 
                   -   !  +%"    #!"+   &+. 
 
 
 
 
 
 
 
 
 
                             5 .   " !/&/    +   !! 
 
 
 
 
 
 
 
 
 
               /"   " ! #"    +  !    /+    !,        /+
 
      !!     (     +    !    +() .     #'/      
 
     #"!/    " !/&   !!   /  #'/    ' "
 
     #/: 
 
 
 
                 : 
 
 
 
                   . R   M A C R O 
 
                   * P R O G = P R O G 
 
 
 
                !!   "  +",    "    !"    " ! #
 
       +,     +'       !"/"    !    " !.     !
 
     !        !"      +         !!     %,       "
 
      #"!/  +/",  " !/&.  /"   !  /+    !,, 
 
     !,#/    .'    " S " ,     '"     "        .'.        "!"      
 
      !!       !%+%      !"             !              '!"
 
     " . 
 
 
 
 
 
               _  _ _ _ _ '_ _ _ _ .   !#"  ",,   '"  /"   !/
 
        !!   !."  $+  !",   .)    +    "
 
     " . L S T " .   -"#  !",!",  : 
 
 
 
                   . R   P A S C A L 
 
                   * P R O G / S , P R O G = P R O G 
 
                   . R   M A C R O 
 
                   * P R O G , P R O G = P R O G 
 
 
 
      "    "#,   '"  $  !    !",     #'+    /" 
 
     !/,   #"  )    +    $    !",     !+
 
      !! . 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
                                                               C T P .   1 9 
 
 
 
 
 
 
 
 )1 . 7 0 0 . 0 1 6   . 0 4 - 0 1   3 3 
 
 
 
 
 
                             6 .       +    /+  !,
 
 
 
 
 
 
 
 
 
               !  #'/  ' "  $    %  !",
 
     !    !/.)      !!"      !,            ' "      "
 
     ( P A S C A L . O B J )     /    #'/      +            $ "       #, 
 
       : 
 
 
 
                   . R   L I N K 
 
                   * P R O G = P R O G , P A S C A L 
 
 
 
               "    P A S C A L . O B J     !      !/.)      !!"      !,
 
     ! "         #,             " +       )"!/        , 
 
     #'/    /"     !/.     !!"+    )    !
 
     .'"    !!"    +  #+  #    "      !!"
 
       #    $ "   #. 
 
 
 
               (    +."!/     &# +,     " +     #."!/      
 
     !! #."!/  ",  "  !    +.   .'    (%
 
      &#     ##.    #  !#)!"/"!/     '!    
 
         !"     )#    !&$&      %+%      $, 
 
     ! )%    #    (%     &# .       ,     !      (
 
      &# +  ! "!/    $%  " A " ,   " B "     " C " ,   "  /  !" 
 
     #"  ",  : 
 
 
 
                   . R   L I N K 
 
                   * P R O G = P R O G , A , B , C , P A S C A L 
 
 
 
               #!"!/     )",    (       &# +             +%
 
     !"%    +,     : 
 
 
 
                   . R   L I N K 
 
                   * P R O G = P R O G , P A S C A L / / 
 
                   * A / O : 1 
 
                   * B / O : 1 
 
                   * C / O : 1 / / 
 
 
 
                  /  $ &/     %  !" /     +%
 
            "!/        #"    " !!"+      +    )
 
     '/.               +            L I N K , L I B R , D U M P , S R C C O M .  #!"
 
      " .     #1 . 2 0 0 0 1 - 0 1     3 4       0 3 - 2 "              !      !!"
 
     )  " L I N K " . 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
                                                               C T P .   2 0 
 
 
 
 
 
 
 
 )1 . 7 0 0 . 0 1 6   . 0 4 - 0 1   3 3 
 
 
 
 
 
                                     7 .   #!    +    +
 
 
 
 
 
 
 
 
 
               #!        +,         !                /+        !,, 
 
     !#)!"/"!/      +'+      ! !"      !!"+      !,         ". . 
 
     !,    "   " R "     " R U N " ,   " +    !+    
 
     #"      " +      " . !      .          #!"
 
      " . #1 . 2 0 0 0 1 - 0 1   3 4   0 1 - 2 " . 
 
 
 
                 : 
 
 
 
                   . R   P R O G 
 
 
 
                   #    +  +  (  ( !!"+) ,     " +
 
     !+    #"  " !)/        !"    (. ! '
 
      " .     #1 . 2 0 0 0 1 - 0 1     9 0     0 1 - 2 " . !)/,       .)       
 
     +    +    /+  !,,   ##"  !+  . 
 
 
 
 
 
 
 
 
 
                                                         8 .   !)/
 
 
 
 
 
 
 
 
 
                       !"+  "!"+  !)        (%, 
 
     .)%     +    +        /+    !,.     "!"+
 
     !)  !+  /!/   '    (    ,     !",, 
 
     !!  %  #!" /. 
 
 
 
 
 
     N O   R O O M   O N   D E V I C E   O R   F I L E   N O T   F O U N D 
 
                   -       !)    !/    !    (         +
 
                        &# +  R E S E T ,     !    !&$& +    $        +
 
                       ,               "     &# +    R E W R I T E       
 
                       "!"#"!  !"  /  !/      $,     ". . 
 
                       "  !"    "  !"/    ". . 
 
 
 
     N O T   A   V A L I D   D E V I C E 
 
                   -      &#   R E S E T     R E W R I T E   +    #    #!" !", 
 
                             "     "!#"!"#"          !!"+%      "&%
 
                        "  "   !. 
 
 
 
     E N D   O F   F I L E   O N   D E V I C E 
 
                   -   /  (  !/  !  +   &# +    R E A D     
 
                       G E T ,   !    ""  "  '  $#&  E O F   +  T R U E . 
 
 
 
     I / O   C H A N N E L   N O T   O P E N 
 
                   -   (  !/  !    +     &    / +    !
 
                       ,       " +            +        ",        " +"
 
                        &#   R E S E T     R E W R I T E . 
 
 
 
     N O T   E N O U G H   A V A I L A B L E   M E M O R Y 
 
                   -   !)    !",!"#"        ",       '"      '!/
 
                       !",  /"  !'     (               +
 
                                                               C T P .   2 1 
 
 
 
 
 
 
 
 )1 . 7 0 0 . 0 1 6   . 0 4 - 0 1   3 3 
 
 
 
 
 
                        &# +    N E W ) ;      #/     '        !)/    - 
 
                       !""  /"  /   # !  +   &# +. 
 
 
 
     I N T E G E R   E R R O R 
 
                   -   (  !/  !  +   $"'!%     &    !
 
                        +  "  I N T E G E R ;        -   -"   
 
                          #    +   &#   T R U N C     R O U N D . 
 
 
 
     F L O A T I N G   P O I N T   E R R O R 
 
                   -   !)        -"    (      !/      !       ,+
 
                       +   $"'!   &     +  "
 
                       R E A L      &!!  +'!. 
 
 
 
     L O G   O F   N E G A T I V E 
 
     E X P   O V E R F L O W 
 
     S Q R T   O F   N E G A T I V E 
 
                   -   +    (    ."            '       ,+%
 
                        "     $#&  /+  !,:   L O G ,   E X P     S Q R T . 
 
 
 
     D E V I D E   B Y   Z E R O 
 
                   -   (  !/  !  +"  +",      0 . 
 
 
 
     B A D   S E T   E X P R E S S I O N 
 
                   -   (             +'!      + /,       !/        !
 
                       !":    #+  -"     "  #
 
                       !"#. 
 
 
 
     A R R A Y   B O U N D   E R R O R 
 
                   -        +'!    + /        ". .     '    !
 
                        /  #!"  '; 
 
 
 
     T R A P   T O   4 
 
                   -    (    +    " #    4 ,     "     !/    !
 
                        )            !#)!"#.)      /'      /"        
 
                       !,      #!"              !&        
 
                       !" #&     &!! ;     +'    -"    (    //"!/
 
                       -         (                $ "%,         !+%          
 
                        !! ; 
 
 
 
     B A D   S U P P O R T   P A C K A G E 
 
     R E S E R V E D   I N S T R U C T I O N   T R A P 
 
     M I S S I N G   S P E C I A L   F E A T U R E 
 
                   -   (    !/    !    !,    !/.)    !!"+
 
                       !/,               !""!"#.)        "#        &" ,
 
                        &!! ,     "     !" #&  (   $ "%
 
                          !! ) ,   "!#"!"#.)%           !" #&
 
                       &" ,   &!! ; 
 
 
 
     S U P P O R T   C O N D I T I O N A L S   E R R O R 
 
                   -   (     +  '!   &; 
 
 
 
     N E W   O F   L E N G T H   0 
 
                   -   (    !/    !    +     &# +      " N E W "        
 
                       !     #  +; 
 
 
 
     F A T A L   I / O   E R R O R 
 
                   -    (  #!" /  (  / +; 
 
 
 
                                                               C T P .   2 2 
 
 
 
 
 
 
 
 )1 . 7 0 0 . 0 1 6   . 0 4 - 0 1   3 3 
 
 
 
 
 
     T O O   M A N Y   F I L E S   O P E N 
 
                   -   !    +"    " +",    !(          $      /
 
                       / +. 
 
 
 
 
 
 
 
 
 
                                       9 .   " !/&/  (%   &# 
 
 
 
 
 
 
 
 
 
               (      +."!/       &# +            $#&,       " +
 
      #."!/    !! #."!/  ",  "  !    +    
 
     /+  !,.   )  !,#"!/  /    ' /    (%
 
      &#     !    +      #'/      +        $ "
 
      #.   ! !"  (%   &#   /."    '",     &!!
 
       "    "      !'/,   !,#  !
 
         !#.    #    " #"  "   /&    
 
     !! /    (%     &# .     "      ,(%        
 
     !#)!"  # )"!/    #"    !/    !",.    "!" +%
 
     (%   &# .     -"  !#'     "  !    +  
 
      #."  !  .'  " D " .         ,+     +    (%
 
      &#   !"/"!/    !"#+    "'#.           "'
 
     $ &              !#)!"    #,("!/.         ",+%
 
     !#'/%,             ',              #    
 
      "  /",   !"/  !",   /  "  - 
 
     !,  (%   &# ,    ((%  -"  "!" /. 
 
 
 
                #  !,           ,(      +     #"
 
      ""  !,    !",     !,",    !!"
 
       "#.    "#.  "#  (%   &# . 
 
 
 
               (   &# +      $#&    !."!/    '    +'+
 
      &#         /+    !,.     !,      .'      " E "        
 
     " !/&,    "    ' /.    !%     &#         $#&    
 
        #   !"  ,+.    +  6             
 
      &# +    $#&  ' //."!/        '!"    ,    "'
 
     %    ( ") ,     " /    #"    !,    )     
 
     '   (%  #        !      +.     !&,/
 
     $     "     ( *  E + * )     "    "      !,",!/      /
 
      /   &# +        '!"    (.       ,     " /
 
     !,#"  (..     &# #,         .'",        -"
 
      &# +,     " +  !#"    .'    !    " E X T E R N A L " .     
 
     !.",  !" !",         "         /    !/
 
      "      &# +,     !,#    /"     (    !"
 
       ",  -"#  $ &.. 
 
 
 
               /"     ""  !"    /     )/     +%    
 
        #   ( ,+%) .   !"  -"    /"      !"
 
         !""!"#.)     !    !    ",     '"+        !       
 
     +  !    ,+     +    !      +.     !/
 
     ""!"!",    !  !  ,+%     +%    
 
     (%     &# %            !        +      "!/      
 
       !".     ,",!/    -"    !",.      !#"      ',
 
     !" ,     !,#        "    !#",    !"'     '+%
 
      !#+%  (  (    #,"") . 
 
 
 
                                                               C T P .   2 3 
 
 
 
 
 
 
 
 )1 . 7 0 0 . 0 1 6   . 0 4 - 0 1   3 3 
 
 
 
 
 
                 : 
 
 
 
   ,+   +  ( $  G L O B A L . P A S ) : 
 
 
 
             V A R                                 ( *   ,+   +  * ) 
 
                     I :   I N T E G E R ; 
 
                     R :   R E A L ; 
 
                     C :   C H A R ; 
 
 
 
   !/      ( $  M A I N . P A S ) : 
 
 
 
             ( *   (//   &#   * ) 
 
 
 
             P R O C E D U R E   E X P R O C ( X : I N T E G E R ) ;   E X T E R N A L ; 
 
 
 
             B E G I N                             ( *   '  M A I N   * ) 
 
                     I : = 1 ;   R : = 3 . 1 4 1 5 9 2 6 ;   C : = ' X ' ; 
 
                     E X P R O C ( 5 ) ;           ( *   +  (   &# +  * ) 
 
             E N D .                               ( *   &  M A I N   * ) 
 
 
 
   (//   &#   ( $  E X T E R N . P A S ) : 
 
 
 
             ( *  E + * ) 
 
 
 
             P R O C E D U R E   E X P R O C ( Y : I N T E G E R ) ;   ( *   (//   &#   * ) 
 
 
 
             B E G I N             ( *   '  (   &# +  * ) 
 
                   W R I T E L N ( ' I =   ' , I : 2 ) ; 
 
                   W R I T E L N ( ' R =   ' , R ) ; 
 
                   W R I T E L N ( ' C =   ' , C ) ; 
 
                   W R I T E L N ( ' P R O C E D U R E   A R G U M E N T =   ' , Y : 3 ) ; 
 
             E N D ;               ( *   &   &# +  * ) 
 
 
 
 
 
                  !"  !",!",      /    +/
 
       +: 
 
 
 
                   . R   P A S C A L 
 
                   * M A I N = G L O B A L , M A I N 
 
                   . R   P A S C A L 
 
                   * E X T E R N = G L O B A L , E X T E R N 
 
                   . R   M A C R O 
 
                   * M A I N = M A I N 
 
                   * E X T E R N = E X T E R N 
 
                   * ^ C 
 
                   . R   L I N K 
 
                   * P R O G = M A I N , E X T E R N , P A S C A L 
 
                   * ^ C 
 
                   . R   P R O G 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
                                                               C T P .   2 4 
 
 
 
 
 
 
 
 )1 . 7 0 0 . 0 1 6   . 0 4 - 0 1   3 3 
 
 
 
 
 
               1 0 .   !!"  +/    +    /+  !,
 
 
 
 
 
 
 
 
 
               /    ",     '"+      -$$"      !,",      !"      
 
      !!           /+  !,,   %  ",
 
     " +  !!"         &.         +    "
 
     ##"  !+  ,   %"/   #"!/    (     -"    //"!/    !,
 
     +)     /",!/    #'    "!"        !! ,       " +
 
       #"  /"   !,. 
 
 
 
                  +          /+    !,    !,#"    
 
     !"  +%:   ,/  !",    !".       ,    !"
 
     ! "!/  !   +,      +        #     0 ,     ". .     
 
     '      +.     !",    !"    !,#"!/      /      % /
 
     ,+%   +%  /   &#      !     '    (  ") 
 
     # /.     /"+     !"     R 5     !    ! "     !      '
 
     ,  !",      !"   (!"    ( S P )     #+"        '
 
         !".   !   -"%   !"         /",!/
 
       $ "      !!     (         !% /",!/,         "
 
     !!"",!/) . 
 
 
 
                  +   &# +  !/.)/  !!"  !% /"        !"
 
      !   "    ""    !"  !"  /   "     ,+%
 
      +%.       +      '       +       &# +        ( 
 
      # !+)      "        !.        !"    '     !"
 
     +%,       : 
 
 
 
                                   - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
         ( S P )   = = = >         !     !""'!  #",  ! 
 
                                   - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
                                   !     ,+   +    ! 
 
                                   !         ( !    !",)           ! 
 
                                   - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
                                   !            !   "          ! 
 
                                   - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
                                   !    " +  ( !  !",)     ! 
 
                                   - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
                                   !    #,"",    )+! 
 
                                   !                 $#&                ! 
 
                                   - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 
 
               !""'!    #",      ! "       !      !"      !", 
 
     +         !    +     &# +.       -""      #",
 
     !,#"!/    /    +'!/     !     +%     #"'+%
 
     #     (  +%,     " +        //."!/        ,+,     
 
     ,+) .   !    ,+     +    /    "#)     &# +
 
     #"    !,",!/    #"    !&    "!",      "#)
 
     #"/    !"      -       S P .       !"#            ,+       +
 
     !#)!"/"!/  !&   !"   R 5 .     !"#         #"'
 
        "    !#)!"/",!/    #"    " /"         !"#    !
 
     !,  !""'!%  #"    "%   ,           #"
 
         " #/    !",      !".       !      -"      !&/
 
     !#)!"/"!/    "!",        +.     /    ",     '"+
 
     !",  !"#     +       !"+    /      !"    
 
      !! ,   /"    /"  /         '!"
 
     !)/  "!",  !""!"#.)  #"/  ( R 5     S P ) . 
 
                                                               C T P .   2 5 
 
 
 
 
 
 
 
 )1 . 7 0 0 . 0 1 6   . 0 4 - 0 1   3 3 
 
 
 
 
 
               ',   "'  %       &# +        $#&    /" 
 
     /"    +  ".   !#"  ",,   '"  /"   
 
       /"   ,!",   )     +        $ "%    
 
      !! . 
 
 
 
                 : 
 
 
 
                   F U N C T I O N   S W A P B Y T E S   ( I : I N T E G E R ) : I N T E G E R ; 
 
                   B E G I N 
 
                                   ( *  C 
 
                                                   S W A B         I ( S P ) 
 
                                   * ) 
 
                                   S W A P B Y T E S   : =   I ; 
 
                   E N D ; 
 
 
 
               !  %  !.   &# #  !",         !! , 
 
     "    -"        !#)!"",,      !"    .'    !,    $ "    
 
        &# +,   ". .   #",  '        &     &# +    
 
          !/.         "     &# +    $ "+        !    
 
      !!   #"  ' ",!/,     : 
 
 
 
                   P R O C E D U R E   E X A M P L E ; 
 
                   B E G I N 
 
                         ( *  C 
 
                                         ; $ "     !! 
 
                         * ) 
 
               W R I T E   ( '   "!"  !)/' ) ; ( *   $ "    !  * ) 
 
                         ( *  C 
 
                                         ; )  $ "     !! 
 
                         * ) 
 
                   E N D ; 
 
 
 
 
 
               _  _ _ _ _ '_ _ _ _ .   !#"  ",,   '"  $#&    !% /."
 
     !        !"       R 0 - R 4       ( .'/       !" +- ##/" +
 
      &!!   !  .)  /") ,      &# +  -     !% /.". 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
                                                               C T P .   2 6 
 
 
 
 
 
 
 
 )1 . 7 0 0 . 0 1 6   . 0 4 - 0 1   3 3 
 
 
 
 
 
                                                   1 1 .       I M P 
 
 
 
 
 
 
 
 
 
                   I M P   !    /+  !,     '    /
 
     +      "         "&          ,         !+%
 
     /"   !,     &  !!"  !. 
 
 
 
                 #+!,  +(,     /"     " ! #"      #    !
 
     /+  !,    /+   !! .       I M P      "+"
 
     "!"    +         !! ,     +/"    ",+    +
 
     "&    !"    -$$"#.    #  "        /+
 
      !! . 
 
 
 
               "&   ."!/  !" #&     %    ( J M P ,     B R     
 
     ". . ) .   I M P   +/"    #    !" #&    J M P         B R ,     !    -"
 
     .      -"  -"!/  1   !  /".     : 
 
 
 
                                   J M P           L 2 0 
 
     /"!/  : 
 
                                   B R             L 2 0 
 
 
 
                   " +%    !#'/%      +/."!/            !+      +
 
     "&: 
 
 
 
                                   B G T           L 3 0 
 
                                   J M P           L 5 0 
 
                   L 3 0 :         . . . 
 
     /"!/  : 
 
                                   B L E           L 5 0 
 
 
 
       -"  !#'  -"!/  2   !  /". 
 
 
 
 
 
 
 
               1 1 . 1 .   +     #
 
 
 
 
 
 
 
               +    +  I M P   !#)!"/"!/    "   R     
 
     R U N .   !   #       ("  /    $,         " 
 
     %"!/  "!"    +,   " #.    #    " ",.     !
 
     -"    I M P        ("      !&$&.      +%      $      /
 
     "    !    +. 
 
 
 
               !    !&$&  $    I M P     '"     "",.     
 
     &  I M P    !'"+"  !""!"#     &!!    "&,     ". . 
 
     '!  !,     "   ! "!/        +,        &"
 
     #,(        +. 
 
 
 
                 : 
 
 
 
                                   . R   I M P 
 
                                   I N P U T   F I L E ?     D K : P R O G . M A C 
 
                                   O U T P U T   F I L E ?   D K : P R O G 1 . M A C 
 
                                   I M P R O V E M E N T         5 0   W O R D S       8 . 7 % 
 
                                   . 
 
                                                               C T P .   2 7 
 
 
 
 
 
 
 
 )1 . 7 0 0 . 0 1 6   . 0 4 - 0 1   3 3 
 
 
 
 
 
               _  _ _ _ _ '_ _ _ _ .     #'.  "  %        +%
 
     $  " M A C " . 
 
 
 
                     I M P     "    !,",!/    /    "&    
 
     +%        /+  !,,   "    ",+%  '!",   " +
 
     $ +       (%   &# . 
 
 
 
               "!"      +         !!             ! ",
 
      .    !" +  +  '",!/  ",    % 0 ,   % 1 ,   . . . , 
 
     % 6 ,   % 7 .     "!"    +    !,",  " . 
 
 
 
                &#     "&    +/"!/    ! ",    . 
 
     -"#  " ",    #  !#"  ",  !    ",     
 
       !",.  ". 
 
 
 
 
 
 
 
               1 1 . 2 .   !)/    +  I M P 
 
 
 
 
 
 
 
                    /"!/    "!"+      !),       ++%      I M P       !
 
     /!/. 
 
 
 
     N O   < >   I N   L I N E 
 
     N N N N     L I N E 
 
                   -     !"   !     " N N N N "   "!#"!"#."  !  " < "     " > " . 
 
 
 
     E R R O R   A T   B R J M P   N O D E     N N N N 
 
                   -     !"   !     " N N N N "      #    (,     
 
                       !//  !  !,  .'    " C "         !"+    
 
                       "!"    !  $ "     !! . 
 
 
 
     E R R O R   A T   J M P   N O D E     N N N N 
 
                   -     !"   !     " N N N N "      #    (,     
 
                       !//  !  !,  .'    " C "         !"+    
 
                       "!"    !  $ "     !! . 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
                                                               C T P .   2 8 
 
 
 
 
 
 
 
 )1 . 7 0 0 . 0 1 6   . 0 4 - 0 1   3 3 
 
 
 
 
 
                                                   1 2 .       F O R M 
 
 
 
 
 
 
 
 
 
                   F O R M   !    /+  !,     '  /
 
     +/        $ " /        !%        "!"           '+%
 
     ,",!%        !,         "    /    !/    
 
      !'"  "&    !"+%  !!+. 
 
 
 
 
 
               _  _ _ _ _ '_ _ _ _ .                    $ "             +
 
      "!/        '  !" #"# +. 
 
 
 
 
 
 
 
               1 2 . 1 .   +     #
 
 
 
 
 
 
 
               +    +  F O R M   !#)!"/"!/    "   R   
 
     R U N .   !   #      +"    "   " * "         "
 
       !"     $ "  C S I . 
 
 
 
               /  !"   /  F O R M   "  ! ",    2 - %  +%+%    
 
       %  $. 
 
 
 
               !&$&/    %    $     /"      !%+      "!"
 
       +,   " /    +",     #"    $ " ..     "
 
     $    #'.  -   " . P A S " . 
 
 
 
               !&$&/     +%  $  "  $,       " +
 
     #"    )    "$ " +    "!"    !%      +    
 
     !.   -"  !&$&/    //"!/  /",.   "  $    
 
     #'.  -   " . P A S " . 
 
 
 
               !&$&/  "   +%  $  "  $,       " +
 
     #"    )    "&      !"+%    !!+      +          
 
     !".     !&$&/        +%    $            //"!/
 
     /",.   "  $    #'.  -   " . L S T " . 
 
 
 
                 : 
 
 
 
                   . R   F O R M 
 
                   * P R O G 1 , L P : = P R O G 
 
                   N O   E R R O R   I N   B L O C K S T R U C T U R E 
 
                   . 
 
 
 
               !$ " +      "!"        +            !        
 
     !,",      /      !#.)       "+,       ". .       " ! ",
 
     /" ,    " ",,   "",    ". . 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
                                                               C T P .   2 9 
 
 
 
 
 
 
 
 )1 . 7 0 0 . 0 1 6   . 0 4 - 0 1   3 3 
 
 
 
 
 
               1 2 . 2 .   !)/    +  F O R M 
 
 
 
 
 
 
 
               !)/,   ++      F O R M     " : 
 
 
 
     L I N E   N N N N N   T O O   L O N G 
 
                   -   !"   !%    +  !     N N N N N   ! "  
 
                       1 4 7   ,   '"  //"!/  #!"+; 
 
 
 
     M I S S I N G   P O I N T   A T   P R O G R A M   E N D 
 
                   -     &    +    /+  !,  "!#"!"#"  " . " ; 
 
 
 
     C O M M A N D   S T R I N G   E R R O R 
 
                   -   /  !"   /  F O R M   ! "  (#; 
 
 
 
     E R R O R   I N   B L O C K S T R U C T U R E 
 
                   -   '/  !" #"#     +    !  ! "  (#; 
 
 
 
     N O   E R R O R   I N   B L O C K S T R U C T U R E 
 
                   -      $ "     +  (    '    !" #"# 
 
                            #;         !)      !",!"#"      
 
                        ,   (   "+    +  F O R M . 
 
 
 
 
 
               !#.)  !)/  //."!/        "     +%    $, 
 
     !          F O R M (     !"      "&        !"+%
 
     !!+) : 
 
 
 
     N E X T   L I N E   T O O   L O N G 
 
                   -   !#.)/  !"   !"  ! "    1 4 7   ; 
 
 
 
     M I S S I N G   ' E N D '   O R   ' U N T I L '   N U M B E R   N N N N 
 
                   -    #)  " E N D "     " U N T I L "   !     N N N N ; 
 
 
 
     M I S S I N G   ' T H E N '   N U M B E R   N N N N 
 
                   -    #)   " /  !  " T H E N "   !     N N N N ; 
 
 
 
     M I S S I N G   ' O F '   T O   ' C A S E '   N U M B E R   N N N N 
 
                   -    #)  " O F "      "   " C A S E "   !     N N N N ; 
 
 
 
     O N L Y   O N E   ' E X I T '   A L L O W E D 
 
                   -       "!"  #!"  ",     "   " E X I T " ; 
 
 
 
     M I S S I N G   ' E X I T '   I N   ' L O O P '   N N N N 
 
                   -    #)  " E X I T "      "   &  !     N N N N . 
 
 
 
 
 
                    '!/."!/     ,+    ,     //.)!/    
 
     !"  !$ "     +: 
 
 
 
     C R O S S   R E F E R E N C E   L I S T I N G   O F   V A R I A B L E S 
 
                   -   "&    !"+%  !!+   +%; 
 
 
 
     L I S T   O F   P R O C E D U R E S 
 
                   -   !!   &# ; 
 
 
 
 
 
                                                               C T P .   3 0 
 
 
 
 
 
 
 
 )1 . 7 0 0 . 0 1 6   . 0 4 - 0 1   3 3 
 
 
 
 
 
     X   I S   C A L L E D   B Y   Y 
 
                   -    &#   " X "   ++"!/   &#   " Y " ; 
 
 
 
     X   C A L L S   U P   Y 
 
                   -    &#   " X "   ++"   &# #  " Y " ; 
 
 
 
     I N D E N T E D   P R O C E D U R E   L I S T 
 
                   -    /+  !!   &# . 
 
 
 
 
 
 
 
 
 
                                       1 3 .   ! !"  "    
 
 
 
 
 
 
 
 
 
               "        /+  !,  !#)!"/"!/  !&,+
 
     #,   %/)    !!"  !/.)  !!"+  !,.     "'
 
     /"        !",.        # /",        +            +, 
 
      !'"+",    $& ",  '/   +%    ". . 
 
 
 
               .'      "'            !!"      +/        +
 
     !#)!"/"!/    ""'!         !,    .'    " D "       
 
      &!!  /&.   +  .'   "      .'.        !!"
 
       #    +    ",    $ &         )
 
      "     %   +%.   !,  .'  " S "   /"
 
     !#)!"   !( ",    '     $ &,     !"#         &!!
 
     ".   ,     -"  !#'  #  /",  #'",  $    !
 
     !"  "      +.     "         +    "'
 
     !"      (    "'    #"     !'"+",
 
     !""!"#.)#.  !%#.  !" #    +        /+    !,,     
 
     "    (  !". 
 
 
 
                  #!  "      +    "'     !'"+"
 
     !      "$"             " .       !               /&
 
     !,!/  .'  " S " ,   "  "'   !"  !&$&.    $, 
 
     ! )  !"    "      +.     $    !    !"
 
          )",!/          (      .)      #!" !"      !
 
     "   &    !",!/     !  /&
 
     "    +. 
 
 
 
                 "'  "     #  +,   "         !'"+"
 
       " ] "           ##    " .     !    -"        ",
 
     +  "'#.   !,#  #,  "'    "    !    
 
     /+  !,,   "    !'"+"  +  ( "  +)     +'+
 
      "   ,     " +    ."!/        !.     -"#,     !
 
     /            ! "      (#,       "'       !'""
 
     !""!"#.)  !)    " "   !  +. 
 
 
 
               !      +     "+      !      "'                   
 
     !"  #."!/        D B G T S T   ( " /    %"!/        $
 
     D B G T S T . P A S ) .   /&/  -"    +  !#)!"/"!/  : 
 
 
 
                   . R   P A S C A L 
 
                   * D B G T S T , D B G T S T = D B G T S T / S / D 
 
 
 
                    /&    !"!/    $      !      !"        +
 
                                                               C T P .   3 1 
 
 
 
 
 
 
 
 )1 . 7 0 0 . 0 1 6   . 0 4 - 0 1   3 3 
 
 
 
 
 
     D B G T S T . L S T .    !'"  !"  "  !#.)  : 
 
 
 
     D B G T S T                               P     A     S     C     A     L                   1 3 - 1 2 - 8 2                 P A G E   1 
 
                                 " -"     &  8 0 2 0 / 2 , 3 , 4 
 
 
 
     L I N E     S T M T   L E V E L     N E S T       S O U R C E   S T A T E M E N T 
 
 
 
         1                                           P R O G R A M   D B G T S T ; 
 
         2 
 
         3                                           V A R         A , B : I N T E G E R ; 
 
         4 
 
         5                                                 P R O C E D U R E     S U M ( C , D , E : I N T E G E R ) ; 
 
         6 
 
         7                                                   V A R                 I : I N T E G E R ; 
 
         8 
 
         9                                                         F U N C T I O N   A D D ( P , Q : I N T E G E R ) 
 
       1 0                                                                                         : I N T E G E R ; 
 
       1 1                                                         V A R           X , Y : I N T E G E R ; 
 
       1 2 
 
       1 3                                                 B E G I N   ( *   S T A R T   O F   A D D   * ) 
 
       1 4           1           3           1               X : = P ; 
 
       1 5           2           3           1               Y : = Q ; 
 
       1 6           3           3           1               I F   Y = 0   T H E N   A D D : = X 
 
       1 7           5           3           2                 E L S E   A D D : = A D D ( 0 , X ) + A D D ( Y , 0 ) ; 
 
       1 8           6           3           1             E N D ;   ( *   E N D   O F   A D D   * ) 
 
       1 9 
 
       2 0                                                   B E G I N   ( *   S T A R T   O F   S U M   * ) 
 
       2 1           1           2           1                     I : = A D D ( C , D ) ; 
 
       2 2           2           2           1                     I : = A D D ( I , E ) ; 
 
       2 3           3           2           1               E N D ;   ( *   E N D   O F   S U M   * ) 
 
       2 4 
 
       2 5                                           B E G I N   ( *   S T A R T   O F   M A I N   * ) 
 
       2 6           1           1           1               A : = 1 ; 
 
       2 7           2           1           1               B : = 2 ; 
 
       2 8           3           1           1               S U M ( 3 , 4 , 5 ) ; 
 
       2 9           4           1           1       E N D .   ( *   E N D   O F   M A I N   * ) 
 
 
 
 
 
                   "!"      +        ",,       '"            ! "
 
     ,#.   &# #  " S U M "        +    " A "         " B " .     " 
 
     " ,/"   !,#"!/      !#'  "#,   '"     +
 
     " A "     " B "      &#   " S U M "   #"    +",    !"#+         "/
 
     !    +.   $#&/  " A D D "   //"!/  ,,   ". .   #" 
 
     /   &# +    " S U M " .     -"#    $#&/    " A D D "     "    ++",!/
 
     ",  #"    &# +    " S U M " ,                 !      +. 
 
     ',      /    " I "     //"!/    ,    /     &# +
 
     " S U M " ,      +  " X "     " Y "   -   ,+  /  $#&  " A D D " . 
 
 
 
               !",/  '!",         !/)    !.    
 
     "'. 
 
 
 
 
 
               _  _ _ _ _ '_ _ _ _ .       /       !/      "'      !,
 
     #!"   "#  ",    #   S J -     F B - " . 
 
 
 
 
 
 
 
 
 
                                                               C T P .   3 2 
 
 
 
 
 
 
 
 )1 . 7 0 0 . 0 1 6   . 0 4 - 0 1   3 3 
 
 
 
 
 
               1 3 . 1 .   "'  !"  ( ; B ) 
 
 
 
 
 
 
 
                           (%      !"      "'      //"!/
 
     !!!",    +",  +  "    +.     !    !
 
     ),.  +  #!"",  "'#  !"    " #     " 
 
       +,   ",     +    +    "        #
 
      " ,     #     #"         "'#.     !    -"
 
     "'#        ",    +,     !    ),.      " +%      , 
 
       ,      !" ",    '/       +%      ,             !#'
 
     %!",   %  $& ",. 
 
 
 
               /    ",     '"+    #!"",    "'#    !",       %
 
     '"",  /   &# +    $#&,   "  /"#.,         " 
 
     !#"      "   (   !#"  #!"",  "'#  !")   
 
     " ; B " .              &#           $#&       " +      # #."!/
 
     !",,         '/        !        1 - .                   " 
 
      !'"+."!/        !"      +        ,       '
 
     " S T M T " . 
 
 
 
               !  !,   "    )."!/      !" ,   "    
 
       " S T M T "   !"   !'"+"!/         "   
 
     -"  !" . 
 
 
 
 
 
               _  _ _ _ _ '_ _ _ _ .   !#"  ",,   '"        +    "
 
        "  +",  ",    "'  !". 
 
 
 
                 +: 
 
 
 
   ]   M A I N , 3 ; B 
 
   ]   S U M , 2 ; B 
 
   ]   A D D , 1 ; B 
 
 
 
               !  ",     #!"    "'    !"         " , 
 
     "'  #"  #'",  #   !/            +
 
     -"     " .     !#"    #'!",,     '"    "'          /"
 
     #!"!",          "         ,      /.)    "'#
 
     !".   -"#,   !,     ,   #!"",  "'#    !"    
 
      "     " F O O , 9 9 " ,     " +          !#)!"#",       "      # 
 
     "'#            ".         -"    "      !",
 
     +"#    !"#     /",    "'    !"         +%
 
      &# %,   " +    %/"!/     "    /"        "
 
      /  "'  !". 
 
 
 
               "  "'    !"    !#)!"/"!/        " 0 ; B "     
 
     " ; B " . 
 
 
 
                 : 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
                                                               C T P .   3 3 
 
 
 
 
 
 
 
 )1 . 7 0 0 . 0 1 6   . 0 4 - 0 1   3 3 
 
 
 
 
 
     P A S C A L   D E B U G G E R   V 2 . 2 
 
 
 
     L I S T I N G   F I L E   N A M E ?   D B G T S T 
 
     ]   S U M , 1 ; B 
 
     ]   ; G 
 
     B R E A K P O I N T   A T   S U M , 1     I : = A D D ( C , D ) ; 
 
     ]   ; P 
 
     P R O G R A M   T E R M I N A T I O N   A T   M A I N , 4     E N D .   ( *   E N D   O F   M A I N   * ) 
 
     ] 
 
 
 
 
 
 
 
               1 3 . 2 .   #!  ( ; G )        ( ; P )     +
 
 
 
 
 
 
 
                  +#)      +  " ; G "     " ; P "   !,!,    /
 
     #!     /  +/    +.   !  "'  !"
 
      ,   "      " ; P "       ",    '!     ,     " 
 
     #"   #)  "'  !"  ( ". .     #     #"     
 
     "'#  ",  !  ",        "     +"!/    #
 
     '!   ) .   -"    !#)!"/"!/    !    ),.    '!     #"
 
     +: 
 
 
 
     ]   A D D , 1 ; B 
 
     ]   ; G 
 
     B R E A K P O I N T   A T   A D D , 1 
 
     ]   3 ; P 
 
     B R E A K P O I N T   A T   A D D , 1 
 
     ] 
 
 
 
           ,   !  ',    "'    !",     "'
 
     #'"  #   !  ",     $#&/  " A D D "   #"    +
 
     3    ,   ". .     4 - +   . 
 
 
 
                  +    +    (             " N ; P " 
 
      "        +.    " N "      " .     ",      !      -"
 
     #   #"     "'#. 
 
 
 
 
 
 
 
               1 3 . 3 .   (+     +/  ( ; S ) 
 
 
 
 
 
 
 
               +  " N ; S " ,     N          #.,      "    "'    
 
     (+     +/    +.      -"    #     #"
 
      ",!/  "'#  !  +/  '    " ,   
 
     #"  "  +       "'    !".          /
 
     " ; P "    "    +.    '    "     +. 
 
     !  !,",  #  " N ; P " ,   "    !"  #"  ++
 
     " N "    " .   +%        (         "!/    
 
     " 0 ; S "      !"  " ; S " . 
 
 
 
                   !,/  (   : 
 
 
 
 
 
 
 
                                                               C T P .   3 4 
 
 
 
 
 
 
 
 )1 . 7 0 0 . 0 1 6   . 0 4 - 0 1   3 3 
 
 
 
 
 
     P A S C A L   D E B U G G E R   V 2 . 2 
 
 
 
     L I S T I N G   F I L E   N A M E ?   D B G T S T 
 
     ]   1 ; S 
 
     ]   ; G 
 
     B R E A K P O I N T   A T   M A I N , 1     A : = 1 ; 
 
     ]   ; P 
 
     B R E A K P O I N T   A T   M A I N , 2     B : = 2 ; 
 
     ]   ; P 
 
     B R E A K P O I N T   A T   M A I N , 3     S U M ( 3 , 4 , 5 ) ; 
 
     ]   1 3 ; P 
 
     B R E A K P O I N T   A T   A D D , 4     I F   Y = 0   T H E N   A D D : = X 
 
     ] 
 
 
 
 
 
 
 
               1 3 . 4 .   " !!   +/+%   "   ( ; T ) 
 
 
 
 
 
 
 
               !  "'    %"!/             " !! ,     "     
 
     +  '    "    !'"+."!/       "+, 
 
     ". .   /   &# +       -"     " .     !    !,!/
 
     .'    " S "          /&,     "     !'"+"!/    "    !%/
 
     !" ,   ! )/   " .   "     " !!     /"
 
     "  ",  ( .",)    &!!    +/      +.      
 
     " !!   #!""!/    " N ; T " ,     N          #.. 
 
      (             " !!       ( +%            -"       ) 
 
     !#)!"/"!/      " 0 ; T "     " ; T " . 
 
 
 
 
 
               _  _ _ _ _ '_ _ _ _ .   !#"    ",,     '",     !        
 
     !"     %"!/      !,       " ,       "      !"       #"
 
      !'"  ",     : 
 
 
 
     P A S C A L   D E B U G G E R   V 2 . 2 
 
 
 
     L I S T I N G   F I L E   N A M E ?   D B G T S T 
 
     ]   S U M , 2 ; B 
 
     ]   ; G 
 
     B R E A K P O I N T   A T   S U M , 2     I : = A D D ( I , E ) ; 
 
     ]   2 ; T 
 
     ]   ; P 
 
     A D D , 1     X : = P ; 
 
     A D D , 2     Y : = Q ; 
 
     A D D , 3     I F   Y = 0   T H E N   A D D : = X 
 
     A D D , 5     E L S E   A D D : = A D D ( 0 , X ) + A D D ( Y , 0 ) ; 
 
     A D D , 1     X : = P ; 
 
     A D D , 2     Y : = Q ; 
 
     A D D , 3     I F   Y = 0   T H E N   A D D : = X 
 
     A D D , 5     E L S E   A D D : = A D D ( 0 , X ) + A D D ( Y , 0 ) ; 
 
     A D D , 1     X : = P ; 
 
     A D D , 2     Y : = Q ; 
 
     A D D , 3     I F   Y = 0   T H E N   A D D : = X 
 
     A D D , 6     E N D ;   ( *   E N D   O F   A D D   * ) 
 
     A D D , 1     X : = P ; 
 
     A D D , 2     Y : = Q ; 
 
     A D D , 3     I F   Y = 0   T H E N   A D D : = X 
 
                                                               C T P .   3 5 
 
 
 
 
 
 
 
 )1 . 7 0 0 . 0 1 6   . 0 4 - 0 1   3 3 
 
 
 
 
 
     A D D , 6     E N D ;   ( *   E N D   O F   A D D   * ) 
 
     A D D , 6     E N D ;   ( *   E N D   O F   A D D   * ) 
 
     A D D , 1     X : = P ; 
 
     A D D , 2     Y : = Q ; 
 
     A D D , 3     I F   Y = 0   T H E N   A D D : = X 
 
     A D D , 6     E N D ;   ( *   E N D   O F   A D D   * ) 
 
     A D D , 6     E N D ;   ( *   E N D   O F   A D D   * ) 
 
     S U M , 3     E N D ;   ( *   E N D   O F   S U M   * ) 
 
     M A I N , 4     E N D .   ( *   E N D   O F   M A I N   * ) 
 
     P R O G R A M   T E R M I N A T I O N   A T   M A I N , 4     E N D .   ( *   E N D   O F   M A I N   * ) 
 
     ] 
 
 
 
 
 
 
 
               1 3 . 5 .   " !!   +/+%   &#   ( ; C ) 
 
 
 
 
 
 
 
                   ,(!"    !#'    " !!     !      +    "
 
     " ",     .   /     (/    -"     +    "'
 
     !'"         "#.    $ #    " !!     -     " !! #
 
     +   &#     $#&. 
 
 
 
               +     " !!   "!/    " N ; C " ,       N     
 
        #..    (       " !!     !#)!"/"!/
 
       " 0 ; C "     " ; C " . 
 
 
 
                                  " !!       "'       !'"+"
 
     $ &.    %       &# #        $#&.,         "         %
 
     !""!"#.)   (: 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
                                                               C T P .   3 6 
 
 
 
 
 
 
 
 )1 . 7 0 0 . 0 1 6   . 0 4 - 0 1   3 3 
 
 
 
 
 
     P A S C A L   D E B U G G E R   V 2 . 2 
 
 
 
     L I S T I N G   F I L E   N A M E ?   D B G T S T 
 
     ]   1 ; C 
 
     ]   ; G 
 
     E N T E R I N G   S U M   F R O M   M A I N , 3     S U M ( 3 , 4 , 5 ) ; 
 
     E N T E R I N G   A D D   F R O M   S U M , 1     I : = A D D ( C , D ) ; 
 
     E N T E R I N G   A D D   F R O M   A D D , 5     E L S E   A D D : = A D D ( 0 , X ) + A D D ( Y , 0 ) ; 
 
     E N T E R I N G   A D D   F R O M   A D D , 5     E L S E   A D D : = A D D ( 0 , X ) + A D D ( Y , 0 ) ; 
 
     L E A V I N G     A D D 
 
     E N T E R I N G   A D D   F R O M   A D D , 5     E L S E   A D D : = A D D ( 0 , X ) + A D D ( Y , 0 ) ; 
 
     L E A V I N G     A D D 
 
     L E A V I N G     A D D 
 
     E N T E R I N G   A D D   F R O M   A D D , 5     E L S E   A D D : = A D D ( 0 , X ) + A D D ( Y , 0 ) ; 
 
     L E A V I N G     A D D 
 
     L E A V I N G     A D D 
 
     E N T E R I N G   A D D   F R O M   S U M , 2     I : = A D D ( I , E ) ; 
 
     E N T E R I N G   A D D   F R O M   A D D , 5     E L S E   A D D : = A D D ( 0 , X ) + A D D ( Y , 0 ) ; 
 
     E N T E R I N G   A D D   F R O M   A D D , 5     E L S E   A D D : = A D D ( 0 , X ) + A D D ( Y , 0 ) ; 
 
     L E A V I N G     A D D 
 
     E N T E R I N G   A D D   F R O M   A D D , 5     E L S E   A D D : = A D D ( 0 , X ) + A D D ( Y , 0 ) ; 
 
     L E A V I N G     A D D 
 
     L E A V I N G     A D D 
 
     E N T E R I N G   A D D   F R O M   A D D , 5     E L S E   A D D : = A D D ( 0 , X ) + A D D ( Y , 0 ) ; 
 
     L E A V I N G     A D D 
 
     L E A V I N G     A D D 
 
     L E A V I N G     S U M 
 
     P R O G R A M   T E R M I N A T I O N   A T   M A I N , 4     E N D .   ( *   E N D   O F   M A I N   * ) 
 
     ] 
 
 
 
 
 
 
 
               1 3 . 6 .   !       ( ; W ) 
 
 
 
 
 
 
 
                 !/  !,#"!/  /  " ./"       '
 
      .   !  #/   /  /"  !  ',     "
 
     "'    #'"    # ,                 "'    !".     /
 
     #!"  ./             %    '"",    /
 
      ,     "  " ; W " .     '"+    !/",    .    !,#"!/
 
       " - 1 ; W " . 
 
 
 
                  +  '    "     "'      /", 
 
     !,      '    .     .     !    '
 
     !,,   "  "'  '""    -"  !)     %"    
 
     !!"/  /  +. 
 
 
 
 
 
               _  _ _ _ _ '_ _ _ _ .   !#"  ",,   '"  "'  +/"
 
     !"  !   " ,   " +           $&    '/
 
      .   /  ",   '"+     !'"",    ""     " ,     " +
 
     +    $&.,     %      !,",      #      "  L " , 
 
     !#.  . 
 
 
 
               !     /    +/        +      .      
 
        #"   ",!/. 
 
 
 
                                                               C T P .   3 7 
 
 
 
 
 
 
 
 )1 . 7 0 0 . 0 1 6   . 0 4 - 0 1   3 3 
 
 
 
 
 
               !/  !" !",  " #"!/         !        ,+
 
      +.   #!"",  !      ,         
 
     ",,     #   #"     !""!"#.)   &# 
 
       $#&.    (   +  .'"!/    ",   '"+  #!"",
 
     "'#  !"        "    &# +.      !"  -"
 
     "'  !"    #!"",  !              ,+%
 
      +%  -"   &# +. 
 
 
 
                    &#         $#&/     ("!/,     "      ,/
 
      /     !""    +",      !"#,             "'      !"
 
     .         !'"+"  !""!"#.)  !): 
 
 
 
     P A S C A L   D E B U G G E R   V 2 . 2 
 
 
 
     L I S T I N G   F I L E   N A M E ?   D B G T S T 
 
     ]   S U M , 1 ; B 
 
     ]   ; G 
 
     B R E A K P O I N T   A T   S U M , 1     I : = A D D ( C , D ) ; 
 
     ]   I / 
 
     0 
 
     ]   I ; W 
 
     ]   ; P 
 
     W A T C H E D   V A L U E   C H A N G E D . 
 
     B R E A K P O I N T   A T   S U M , 2     I : = A D D ( I , E ) ; 
 
     ]   I / 
 
     7 
 
     ]   ; P 
 
     W A T C H E D   V A L U E   C H A N G E D . 
 
     B R E A K P O I N T   A T   S U M , 3     E N D ;   ( *   E N D   O F   S U M   * ) 
 
     ]   I / 
 
     1 2 
 
     ]   M A I N , 4 ; B 
 
     ]   ; P 
 
     W A T C H   T E R M I N A T E D .     V A L U E   D I D N ' T   C H A N G E . 
 
     B R E A K P O I N T   A T   M A I N , 4     E N D .   ( *   E N D   O F   M A I N   * ) 
 
     ] 
 
 
 
 
 
 
 
               1 3 . 7 .    !'"  !    +%
 
 
 
 
 
 
 
               "'  "   !'"+",  !    +%    '"+ %
 
     $ "%:   I N T E G E R ,   B Y T E ,   R E A L ,   C H A R .     /     !'"     
 
     !#"  !"    /    #,    /.)#.  $ "   !'": 
 
 
 
         / 
 
                   -   I N T E G E R     !/"'  ; 
 
 
 
         \ 
 
                   -   B Y T E     !/"'  ; 
 
 
 
         % 
 
                   -   R E A L     $ "  !  .)  /"; 
 
 
 
         ' 
 
                   -         !,    ( C H A R ) . 
 
                                                               C T P .   3 8 
 
 
 
 
 
 
 
 )1 . 7 0 0 . 0 1 6   . 0 4 - 0 1   3 3 
 
 
 
 
 
               $ "   !'"  I N T E G E R   +'  !,#"!/      !'"
 
     '   +%,   ' /+%    I N T E G E R .   $ "  B Y T E     +"
 
     +     +  !/ +%  "     +%  "    B O O L E A N . 
 
     !,/  $ &/  "  "   !'"+",!/  $ "    B Y T E . 
 
     $ "  R E A L   !,#"!/    /    +     +%    "    R E A L ,     
 
     $ "  C H A R   -    +%  "  C H A R . 
 
 
 
               !#"  ",,   '"  "'    "    $ &        "%
 
      +%.   -"#     !'"+",  #    "#         #.
 
        '+  $ ",      #,""+     -"    ##"     +, 
 
       : 
 
 
 
     P A S C A L   D E B U G G E R   V 2 . 2 
 
 
 
     L I S T I N G   F I L E   N A M E ?   D B G T S T 
 
     ]   M A I N , 3 ; B 
 
     ]   ; G 
 
     B R E A K P O I N T   A T   M A I N , 3     S U M ( 3 , 4 , 5 ) ; 
 
     ]   A / 
 
     1 
 
     ]   B / 
 
     2 
 
     ]   I / 
 
     C A N ' T   F I N D   V A R I A B L E   C A L L E D   " I " 
 
     2 
 
     ]   S U M , 2 ; B 
 
     ]   ; P 
 
     B R E A K P O I N T   A T   S U M , 2     I : = A D D ( I , E ) ; 
 
     ]   I / 
 
     7 
 
     ] 
 
 
 
               /  #!"   !'"  !!    !,",    !'"'
 
     " /    !      ,        /.)      $ "       !'". 
 
       ,   /   !'"    !!  " X " ,   !!"/)      3 0 
 
     ,   %    " X ' 3 0 " .   !  -""    !!  "    "
 
     R E A L ,   "       !'"",      " X / 3 0 " .         !'"
 
     -"  &+%  !!     +/"!/        %     !    
 
       " . + N " ,     N   -"  !)        "%    "    ',     !
 
     !!.    !    -"    +"!/          !'"    '/
 
     -". 
 
 
 
                  #   !     ,     %"/    +'    !,#"!/
 
       "$" ,      /",   !"+  + /.       , 
 
     /     !'"    1 0 -     -"    !!    &+%    '!      !#"
 
     !,",!/    " X + 2 0 " .   ',     '"    !/"+    -"
 
     &'!  !!  %"!/,   '/  !    2 0 -     ".     !
 
     ",     +   !'"  '   ,          !    
 
     '",    " . " .       ,     !    +     !'"       /
 
     " X + 2 0 / "     #   !'"",  !#.)  -"  !!  " X + 2 2 / " ,   "
 
       !,",!/    " . + 2 / " .     "#)     !    
 
     "  +'"",  '/,   ". .   #!"  !" #&/  "  " . - 4 " . 
 
 
 
                    !,     +%- #"         !",
 
     .  # ,    !!+    !,     "     " ^ "     ( !/
 
      !&/  /   !'"   +%- #") .       ,     !
 
      /  " X "   #+"    &,   "  -"  '!     !'"",
 
       " X ^ / " .    "   " . "     "'     " #    " + "         "
 
                                                               C T P .   3 9 
 
 
 
 
 
 
 
 )1 . 7 0 0 . 0 1 6   . 0 4 - 0 1   3 3 
 
 
 
 
 
      /",!/      !'"  !+%    !.     !" #&/    " X . 4 " 
 
     !",.  -"  " X + 4 " . 
 
 
 
               " X ^ . 4 "   '"  " ",  !  !,         " #.    #+"
 
      /  " X "   ( !  !)/  ."!/    "%) . 
 
 
 
               .)!/   " +    ."    !",     !'"+",    ',
 
     !+  !" #"# +  +%,     ,   " X . 4 ^ . 2 . 1 0 0 ^ . 4 " . 
 
 
 
               /  ",   '"+  #",   !         !    ( !"
 
       '/) ,   !#"  !,",   "   " = " .       ,     " X = " 
 
      "     !'"   !     " X " ,               '/. 
 
               "    !    !."+     !    !#"    !.",
 
     !" !",.       ,+       +      $#&             &# 
 
      )."!/      !".     -"#    %     !    /."!/    (     #"
 
     /",!/)     "    +        +#.     "          !#"      +"",!/
 
      !'"",  '/   +%,      " +  "'    "  "" , 
 
     '"    "  %    "  ( " C A N ' T   F I N D   V A R I A B L E " ) . 
 
 
 
 
 
 
 
               1 3 . 8 .     !    +%
 
 
 
 
 
 
 
               "'  /"  /",  '/     +%,     !,#/
 
      "    !/  " : = " .   /  ",   '"+   !",     
 
     " A "   '  " 1 " ,     !,",     "     " A : = 1 " .      " 
 
     " X : = ' !" ' "    !"  #  !!#  !" #  .   !,#
 
     "'     !"  $ &        "%     +%,     "    
 
      "   " : = "   #    #+",    ".       ,     '"+     ",
 
        " X "   "  R E A L   '    1 . 2 3 4 ,     #    !"    #
 
     " X : = R 1 . 2 3 4 " . 
 
 
 
                 +: 
 
 
 
     ]   A : = 1 
 
     ]   F I L E N A M E : = ' T E S T . D A T ' 
 
     ]   C O R R E L A T I O N : = R . 0 9 3 3 2 1 2 3 4 5 6 E - 2 
 
 
 
 
 
 
 
               1 3 . 9 .    !'"  !!     +%
 
 
 
 
 
 
 
               !  "    +  +/"!/      !"        '!"
 
     !,#."!/  ,+   &# +    $#&,     " +%     +
 
     ,+     +,     "    +"    +     !'"",    !!
 
      +%,     " +        +      "      //."!/      !"#+. 
 
      !'"#     +%    +",    "  V " .     !!
 
      !'"+"!/,   '/    !        "#)    ,     &# +
 
     ( $#&) ,     " +  !#."       +%,      +%    
 
          &#     ( $#&) .          !'"+."!/     &# +, 
 
     %/)!/    # /%  !",     .)%    ,(     ,     
 
     "  %  ,+   +.       &    !!    +/"!/    
 
     ,+%     +%.     !!    !%       +%      "      +",
 
     !""'  ,(,   ,     !,#/    #    < C T R L / O > ,     
 
                                                               C T P .   4 0 
 
 
 
 
 
 
 
 )1 . 7 0 0 . 0 1 6   . 0 4 - 0 1   3 3 
 
 
 
 
 
       "",   !'"#. 
 
 
 
                 +: 
 
 
 
     P A S C A L   D E B U G G E R   V 2 . 2 
 
 
 
     L I S T I N G   F I L E   N A M E ?   D B G T S T 
 
     ]    V 
 
 
 
     M A I N 
 
           A 
 
           B 
 
     ]   S U M , 1 ; B 
 
     ]   ; G 
 
     B R E A K P O I N T   A T   S U M , 1     I : = A D D ( C , D ) ; 
 
     ]    V 
 
 
 
     S U M 
 
           C 
 
           D 
 
           E 
 
           I 
 
 
 
     M A I N 
 
           A 
 
           B 
 
     ]   A D D , 1 ; B 
 
     ]   ; P 
 
     B R E A K P O I N T   A T   A D D , 1     X : = P ; 
 
     ]    V 
 
 
 
     A D D 
 
           P 
 
           Q 
 
           X 
 
           Y 
 
 
 
     S U M 
 
           C 
 
           D 
 
           E 
 
           I 
 
 
 
     M A I N 
 
           A 
 
           B 
 
     ] 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
                                                               C T P .   4 1 
 
 
 
 
 
 
 
 )1 . 7 0 0 . 0 1 6   . 0 4 - 0 1   3 3 
 
 
 
 
 
             1 3 . 1 0 .    !'"  !!  ++%   &# 
 
 
 
 
 
 
 
               !    +      +      ,       ,         "'
 
     !",   "  +'  +"    /",,     #"  +
 
       +       "'  !".       $ &  
 
     #'",    -"  !#'          "  S " ,     " /     !'"+"
 
     !"    +     &#         $#&.      !'"      ! "      /
 
      &# +        $#&              " ,         "     /
 
      &#   +  +.   "#)/   &#    !'"+"!/   , 
 
     "  +"!/  /   &# +,   " /  +  #.    ". . 
 
 
 
                 : 
 
 
 
     P A S C A L   D E B U G G E R   V 2 . 2 
 
 
 
     L I S T I N G   F I L E   N A M E ?   D B G T S T 
 
     ]   A D D , 1 ; B 
 
     ]   ; G 
 
     B R E A K P O I N T   A T   A D D , 1     X : = P ; 
 
     ]    S 
 
     A D D , 1     X : = P ; 
 
     S U M , 1     I : = A D D ( C , D ) ; 
 
     M A I N , 3     S U M ( 3 , 4 , 5 ) ; 
 
     ]   2 ; P 
 
     B R E A K P O I N T   A T   A D D , 1     X : = P ; 
 
     ]    S 
 
     A D D , 1     X : = P ; 
 
     A D D , 5     E L S E   A D D : = A D D ( 0 , X ) + A D D ( Y , 0 ) ; 
 
     A D D , 5     E L S E   A D D : = A D D ( 0 , X ) + A D D ( Y , 0 ) ; 
 
     S U M , 1     I : = A D D ( C , D ) ; 
 
     M A I N , 3     S U M ( 3 , 4 , 5 ) ; 
 
     ] 
 
 
 
 
 
 
 
             1 3 . 1 1 .    !'"  !%  ++%   " 
 
 
 
 
 
 
 
               "'    !    "    $ &.          !%      1 0 
 
     ++%   " %.   !    %    /",,          (
 
      %    "'#  !",   "    !,",!/    "  L " , 
 
     " /   !'""     !%  1 0    " ,   " +    +
 
     ++,     : 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
                                                               C T P .   4 2 
 
 
 
 
 
 
 
 )1 . 7 0 0 . 0 1 6   . 0 4 - 0 1   3 3 
 
 
 
 
 
     P A S C A L   D E B U G G E R   V 2 . 2 
 
 
 
     L I S T I N G   F I L E   N A M E ?   D B G T S T 
 
     ]   A D D , 3 ; B 
 
     ]   ; G 
 
     B R E A K P O I N T   A T   A D D , 3     I F   Y = 0   T H E N   A D D : = X 
 
     ]   ; P 
 
     B R E A K P O I N T   A T   A D D , 3     I F   Y = 0   T H E N   A D D : = X 
 
     ]    L 
 
     M A I N , 2     B : = 2 ; 
 
     M A I N , 3     S U M ( 3 , 4 , 5 ) ; 
 
     S U M , 1     I : = A D D ( C , D ) ; 
 
     A D D , 1     X : = P ; 
 
     A D D , 2     Y : = Q ; 
 
     A D D , 3     I F   Y = 0   T H E N   A D D : = X 
 
     A D D , 5     E L S E   A D D : = A D D ( 0 , X ) + A D D ( Y , 0 ) ; 
 
     A D D , 1     X : = P ; 
 
     A D D , 2     Y : = Q ; 
 
     A D D , 3     I F   Y = 0   T H E N   A D D : = X 
 
     ] 
 
 
 
 
 
 
 
 
 
                             1 4 .     " ,- !" &/  '
 
 
 
 
 
 
 
 
 
               !!"  " ,- !" &  '  : 
 
 
 
     B I O . P A S -     !" /   ".    $  '""!/    L P : . 
 
 
 
                /  +/  '  !#.): 
 
 
 
 
 
     . A S   D X 1 :   D K : 
 
 
 
     . R U N   P A S C A L 
 
     * B I O = B I O 
 
 
 
     . M A C R O   B I O 
 
 
 
     . R   L I N K 
 
     B I O = B I O , P A S C A L 
 
 
 
     . R U N   B I O 
 
 
 
 
 
     B I R T H D A T E ?   2 2   N O V   5 3 
 
     M O N T H   T O   S T A R T   P L O T ?   A U G   8 1 
 
     N U M B E R   O F   M O N T H S   T O   P L O T ?   1 
 
 
 
     B I R T H D A T E   =   2 2   N O V   1 9 5 3 
 
     P L O T   F O R   T H E   M O N T H   O F   A U G   1 9 8 1 
 
 
 
 
 
 
 
                                                               C T P .   4 3 
 
 
 
 
 
 
 
 )1 . 7 0 0 . 0 1 6   . 0 4 - 0 1   3 3 
 
 
 
 
 
                                 -                                                   + 
 
     1   P                                                 :   I                                           E 
 
     2   P                                           I     :                                                 E 
 
     3         P                             I             :                                               E 
 
     4               P             I                       :                                           E 
 
     5                     I     P                         :                                     E 
 
     6               I                       P             :                             E 
 
     7         I                                           P                     E 
 
     8     I                                               :         E P 
 
     9   I                                                 E                         P 
 
   1 0   I                                     E           :                                   P 
 
   1 1   I                           E                     :                                           P 
 
   1 2       I             E                               :                                               P 
 
   1 3           I E                                       :                                                 P 
 
   1 4       E         I                                   :                                             P 
 
   1 5   E                     I                           :                                       P 
 
   1 6   E                             I                   :                               P 
 
   1 7   E                                       I         :                   P 
 
   1 8       E                                             I     P 
 
   1 9             E                               P       :       I 
 
   2 0                     E           P                   :                 I 
 
   2 1                     P         E                     :                         I 
 
   2 2           P                             E           :                                 I 
 
   2 3     P                                               E                                       I 
 
   2 4   P                                                 :         E                                 I 
 
   2 5   P                                                 :                     E                         I 
 
   2 6         P                                           :                             E                   I 
 
   2 7               P                                     :                                     E         I 
 
   2 8                           P                         :                                           E I 
 
   2 9                                       P             :                                         I     E 
 
   3 0                                                     P                                     I           E 
 
   3 1                                                     :           P                 I                 E 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
                                                               C T P .   4 4 
 
 
 
 
 
 
 
 )1 . 7 0 0 . 0 1 6   . 0 4 - 0 1   3 3 
 
 
 
 
 
                                                                                                            1 
 
 
 
 
 
 
 
                                               !!    "'
 
 
 
 
 
 
 
 
 
        L 
 
                   -   +    !!    1 0     !%     " ,     " +    +
 
                       ++. 
 
 
 
        S 
 
                   -    !'"  !!  ( !")   ++%   &#     $#&. 
 
 
 
        V 
 
                   -    !'"  !!     +%,     !"#+%        
 
                       "'    +. 
 
 
 
       P R O C , S T M T ; B 
 
                   -   #!"",    "'#    !"           "       " S T M T "       
 
                        &#   !    " P R O C " . 
 
 
 
       0 ; B 
 
                   -   "",  "'#  !". 
 
 
 
       ; P 
 
                   -    ",  +    +  !  "'  !". 
 
 
 
       N ; P 
 
                   -    #!"",  "'#  !"    " N "              +",    " N " 
 
                        "     (   . 
 
 
 
       ; G 
 
                   -   '",  +    +  ( '  " ; P " ) . 
 
 
 
       1 ; T 
 
                   -   #!"",     " !!   +/+%   " . 
 
 
 
       0 ; T 
 
                   -   "",     " !!   +/+%   " . 
 
 
 
       1 ; C 
 
                   -   #!"",     " !!   +   &#     $#&. 
 
 
 
       0 ; C 
 
                   -   "",     " !!   +   &#     $#&. 
 
 
 
       1 ; S 
 
                   -   #!"",  (+     +/    +. 
 
 
 
       0 ; S 
 
                   -   "",    (+         +/      +,     ". . 
 
                        "    +'+   . 
 
 
 
       V A R ; W 
 
                   -   #!"",  !          '/     
 
                                                               C T P .   4 5 
 
 
 
 
 
 
 
 )1 . 7 0 0 . 0 1 6   . 0 4 - 0 1   3 3 
 
 
 
 
 
                       " V A R " . 
 
 
 
       - 1 ; W 
 
                   -   "",  !    '   . 
 
 
 
       V A R / 
 
                   -    !'"",  '     "  I N T E G E R . 
 
 
 
       V A R / N 
 
                   -    !'"",    " N "       '      &'!+%       +%
 
                       ( !!) . 
 
 
 
       V A R \ 
 
                   -    !'"",  '       !/"'        ( 
 
                       ") . 
 
 
 
       V A R \ N 
 
                   -    !'"",  " N "   !#.)%  "    !/"'  . 
 
 
 
       V A R % 
 
                   -    !'"",  '     "  R E A L . 
 
 
 
       V A R % N 
 
                   -    !'"",  " N "   '   +%  !  .)  /". 
 
 
 
       V A R ' 
 
                   -    !'"",  '     "  C H A R         !,
 
                       . 
 
 
 
       V A R ' N 
 
                   -    !'"",    " N "     !#.)%    '       +%      
 
                       !,  . 
 
 
 
       V A R = 
 
                   -    !'"",  !."+   !   . 
 
 
 
       V A R : = N U M B E R 
 
                   -    !",    &'!    '    ( N U M B E R )      
 
                       " V A R " . 
 
 
 
       V A R : = ' T E X T ' 
 
                   -    !",  !,#.  !" #   . 
 
 
 
       V A R : = R N U M B E R 
 
                   -    !",    '      !      .)      /"      ( N U M B E R ) 
 
                        . 
 
 
 
       " + " ,   " . " 
 
                   -    " +  !/. 
 
 
 
       " - " 
 
                   -    "   +'"/. 
 
 
 
       " ^ " 
 
                   -    "   !!+  ( !/   !&/) . 
 
 
 
 